Developer CD Series 1999 December: Reference Library

home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 …ember: Reference Library / Apple Developer Reference Library (December 1999) (Disk 1).iso / mac / Technical Documentation / Develop / develop Issue 22 / develop Issue 22 code / Paper Juggling.sea / Paper Juggling / JuggleGraphics.c < prev next >
MacBinary | 1995-04-18 | 26.9 KB | [TEXT/MMCC]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	Compact Compressed (Unix) `(archive/compact)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Tue Apr 18 20:31:49 1995, modified Tue Apr 18 20:31:49 1995, creator 'MMCC', type ASCII, 26776 bytes "JuggleGraphics.c" , at 0x6918 410 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MMCC]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 10 4a 75 67 67 6c 65 | 47 72 61 70 68 69 63 73 |..Juggle|Graphics|
|00000010| 2e 63 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.c......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 4d 43 | 43 01 00 00 00 00 00 00 |.TEXTMMC|C.......|
|00000050| 00 00 00 00 00 68 98 00 | 00 01 9a ab ba 0a 75 ab |.....h..|......u.|
|00000060| ba 0a 75 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..u.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 45 be 00 00 |........|....E...|
|00000080| 2f 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |/*------|--------|
|00000090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000c0| 2d 2d 2d 2d 2d 2d 0d 09 | 4a 75 67 67 6c 65 47 72 |------..|JuggleGr|
|000000d0| 61 70 68 69 63 73 2e 63 | 0d 09 0d 09 52 6f 75 74 |aphics.c|....Rout|
|000000e0| 69 6e 65 73 20 74 68 61 | 74 20 64 65 61 6c 20 77 |ines tha|t deal w|
|000000f0| 69 74 68 20 64 72 61 77 | 69 6e 67 20 61 6e 64 20 |ith draw|ing and |
|00000100| 47 58 20 6f 62 6a 65 63 | 74 73 0d 09 0d 2d 2d 2d |GX objec|ts...---|
|00000110| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000120| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000130| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000140| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000150| 2d 2d 2d 2a 2f 0d 0d 23 | 69 6e 63 6c 75 64 65 20 |---*/..#|include |
|00000160| 22 50 61 70 65 72 4a 75 | 67 67 6c 69 6e 67 2e 68 |"PaperJu|ggling.h|
|00000170| 22 0d 0d 2f 2f 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |"..//---|--------|
|00000180| 2d 2d 2d 2d 2d 2d 0d 2f | 2f 20 47 6c 6f 62 61 6c |------./|/ Global|
|00000190| 73 0d 67 78 53 74 79 6c | 65 09 09 09 67 54 68 72 |s.gxStyl|e...gThr|
|000001a0| 6f 77 53 74 79 6c 65 2c | 20 67 48 61 6e 64 53 74 |owStyle,| gHandSt|
|000001b0| 79 6c 65 2c 20 67 4c 61 | 62 65 6c 53 74 79 6c 65 |yle, gLa|belStyle|
|000001c0| 3b 0d 67 78 49 6e 6b 09 | 09 09 67 54 68 72 6f 77 |;.gxInk.|..gThrow|
|000001d0| 49 6e 6b 2c 20 67 46 61 | 64 65 64 54 68 72 6f 77 |Ink, gFa|dedThrow|
|000001e0| 49 6e 6b 2c 20 67 48 61 | 6e 64 49 6e 6b 2c 20 67 |Ink, gHa|ndInk, g|
|000001f0| 46 61 64 65 64 48 61 6e | 64 49 6e 6b 2c 20 67 4c |FadedHan|dInk, gL|
|00000200| 61 62 65 6c 49 6e 6b 3b | 0d 67 78 56 69 65 77 44 |abelInk;|.gxViewD|
|00000210| 65 76 69 63 65 09 67 54 | 68 65 4d 61 69 6e 44 65 |evice.gT|heMainDe|
|00000220| 76 69 63 65 3b 0d 0d 2f | 2f 2d 2d 2d 2d 2d 2d 2d |vice;../|/-------|
|00000230| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000240| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000250| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 2f 2f |--------|-----.//|
|00000260| 20 49 6e 69 74 69 61 6c | 69 7a 61 74 69 6f 6e 20 | Initial|ization |
|00000270| 72 6f 75 74 69 6e 65 0d | 0d 76 6f 69 64 20 49 6e |routine.|.void In|
|00000280| 69 74 43 6f 6d 6d 6f 6e | 47 72 61 70 68 69 63 4f |itCommon|GraphicO|
|00000290| 62 6a 65 63 74 73 28 76 | 6f 69 64 29 0d 7b 0d 09 |bjects(v|oid).{..|
|000002a0| 67 78 56 69 65 77 44 65 | 76 69 63 65 09 73 63 72 |gxViewDe|vice.scr|
|000002b0| 65 65 6e 44 65 76 69 63 | 65 73 5b 36 5d 3b 20 2f |eenDevic|es[6]; /|
|000002c0| 2f 20 50 6c 61 6e 20 66 | 6f 72 20 74 68 65 20 6d |/ Plan f|or the m|
|000002d0| 6f 73 74 20 6f 75 74 72 | 61 67 65 6f 75 73 0d 09 |ost outr|ageous..|
|000002e0| 67 78 53 68 61 70 65 09 | 09 09 68 65 61 64 53 68 |gxShape.|..headSh|
|000002f0| 61 70 65 3b 0d 09 67 78 | 43 61 70 52 65 63 6f 72 |ape;..gx|CapRecor|
|00000300| 64 09 09 63 61 70 52 65 | 63 3b 0d 09 67 78 43 6f |d..capRe|c;..gxCo|
|00000310| 6c 6f 72 09 09 09 62 67 | 43 6f 6c 6f 72 2c 20 72 |lor...bg|Color, r|
|00000320| 73 6c 74 43 6f 6c 6f 72 | 3b 0d 09 6c 6f 6e 67 09 |sltColor|;..long.|
|00000330| 09 09 6e 75 6d 44 65 76 | 69 63 65 73 2c 0d 09 09 |..numDev|ices,...|
|00000340| 09 09 09 61 72 72 6f 77 | 47 6f 6e 5b 5d 20 3d 20 |...arrow|Gon[] = |
|00000350| 7b 09 33 2c 20 2f 2f 20 | 33 20 70 6f 69 6e 74 73 |{.3, // |3 points|
|00000360| 0d 09 09 09 09 09 09 09 | 09 09 66 66 28 31 29 2c |........|..ff(1),|
|00000370| 20 30 2c 0d 09 09 09 09 | 09 09 09 09 09 2d 6b 41 | 0,.....|.....-kA|
|00000380| 72 72 6f 77 48 65 61 64 | 4c 65 6e 67 74 68 2c 20 |rrowHead|Length, |
|00000390| 6b 41 72 72 6f 77 48 65 | 61 64 48 65 69 67 68 74 |kArrowHe|adHeight|
|000003a0| 20 2f 20 32 2c 0d 09 09 | 09 09 09 09 09 09 09 2d | / 2,...|.......-|
|000003b0| 6b 41 72 72 6f 77 48 65 | 61 64 4c 65 6e 67 74 68 |kArrowHe|adLength|
|000003c0| 2c 20 2d 6b 41 72 72 6f | 77 48 65 61 64 48 65 69 |, -kArro|wHeadHei|
|000003d0| 67 68 74 20 2f 20 32 7d | 3b 0d 09 0d 09 2f 2f 2d |ght / 2}|;....//-|
|000003e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003f0| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 09 2f 2f 20 47 65 74 |--------|..// Get|
|00000400| 20 74 68 65 20 64 65 76 | 69 63 65 20 77 65 20 61 | the dev|ice we a|
|00000410| 72 65 20 74 75 6e 69 6e | 67 20 66 6f 72 0d 09 2f |re tunin|g for../|
|00000420| 2f 20 21 21 21 20 54 68 | 69 73 20 69 73 20 63 68 |/ !!! Th|is is ch|
|00000430| 65 65 73 79 2c 20 49 20 | 73 68 6f 75 6c 64 20 72 |eesy, I |should r|
|00000440| 65 61 6c 6c 79 20 6d 61 | 6b 65 20 78 6f 72 20 69 |eally ma|ke xor i|
|00000450| 6e 6b 73 20 66 6f 72 20 | 65 61 63 68 20 64 65 76 |nks for |each dev|
|00000460| 69 63 65 20 61 6e 64 20 | 64 72 61 77 20 66 72 6f |ice and |draw fro|
|00000470| 6d 20 44 65 76 69 63 65 | 4c 6f 6f 70 2c 0d 09 2f |m Device|Loop,../|
|00000480| 2f 20 62 75 74 20 6d 79 | 20 64 65 61 64 6c 69 6e |/ but my| deadlin|
|00000490| 65 20 69 73 20 74 6f 6d | 6f 72 72 6f 77 2e 20 54 |e is tom|orrow. T|
|000004a0| 68 69 73 20 6d 65 61 6e | 73 20 69 74 20 77 69 6c |his mean|s it wil|
|000004b0| 6c 20 64 72 61 77 20 77 | 65 69 72 64 20 6f 6e 20 |l draw w|eird on |
|000004c0| 6f 74 68 65 72 20 64 65 | 76 69 63 65 73 2c 20 61 |other de|vices, a|
|000004d0| 6e 64 20 6d 61 79 62 65 | 20 65 76 65 6e 0d 09 2f |nd maybe| even../|
|000004e0| 2f 20 63 72 61 73 68 21 | 20 4f 68 2c 20 42 6f 79 |/ crash!| Oh, Boy|
|000004f0| 21 0d 09 6e 75 6d 44 65 | 76 69 63 65 73 20 3d 20 |!..numDe|vices = |
|00000500| 47 58 47 65 74 56 69 65 | 77 47 72 6f 75 70 56 69 |GXGetVie|wGroupVi|
|00000510| 65 77 44 65 76 69 63 65 | 73 28 67 78 53 63 72 65 |ewDevice|s(gxScre|
|00000520| 65 6e 56 69 65 77 44 65 | 76 69 63 65 73 2c 20 73 |enViewDe|vices, s|
|00000530| 63 72 65 65 6e 44 65 76 | 69 63 65 73 29 3b 0d 09 |creenDev|ices);..|
|00000540| 67 54 68 65 4d 61 69 6e | 44 65 76 69 63 65 20 3d |gTheMain|Device =|
|00000550| 20 73 63 72 65 65 6e 44 | 65 76 69 63 65 73 5b 30 | screenD|evices[0|
|00000560| 5d 3b 0d 09 0d 09 2f 2f | 2d 2d 2d 2d 2d 2d 2d 2d |];....//|--------|
|00000570| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000580| 2d 0d 09 2f 2f 20 42 75 | 69 6c 64 20 74 68 65 20 |-..// Bu|ild the |
|00000590| 74 68 72 6f 77 20 73 74 | 79 6c 65 0d 09 67 54 68 |throw st|yle..gTh|
|000005a0| 72 6f 77 53 74 79 6c 65 | 20 3d 20 47 58 4e 65 77 |rowStyle| = GXNew|
|000005b0| 53 74 79 6c 65 28 29 3b | 0d 09 0d 09 2f 2f 20 4d |Style();|....// M|
|000005c0| 61 6b 65 20 74 68 65 20 | 61 72 72 6f 77 20 68 65 |ake the |arrow he|
|000005d0| 61 64 20 73 68 61 70 65 | 0d 09 68 65 61 64 53 68 |ad shape|..headSh|
|000005e0| 61 70 65 20 3d 20 4e 65 | 77 50 6f 6c 79 67 6f 6e |ape = Ne|wPolygon|
|000005f0| 28 28 67 78 50 6f 6c 79 | 67 6f 6e 20 2a 29 20 61 |((gxPoly|gon *) a|
|00000600| 72 72 6f 77 47 6f 6e 29 | 3b 0d 09 0d 09 2f 2f 20 |rrowGon)|;....// |
|00000610| 41 64 64 20 61 72 72 6f | 77 20 68 65 61 64 20 61 |Add arro|w head a|
|00000620| 73 20 61 20 6c 69 6e 65 | 20 63 61 70 20 61 6e 64 |s a line| cap and|
|00000630| 20 64 69 73 70 6f 73 65 | 20 69 74 0d 09 63 61 70 | dispose| it..cap|
|00000640| 52 65 63 2e 73 74 61 72 | 74 43 61 70 20 3d 20 6e |Rec.star|tCap = n|
|00000650| 69 6c 3b 0d 09 63 61 70 | 52 65 63 2e 65 6e 64 43 |il;..cap|Rec.endC|
|00000660| 61 70 20 3d 20 68 65 61 | 64 53 68 61 70 65 3b 0d |ap = hea|dShape;.|
|00000670| 09 63 61 70 52 65 63 2e | 61 74 74 72 69 62 75 74 |.capRec.|attribut|
|00000680| 65 73 20 3d 20 67 78 4e | 6f 41 74 74 72 69 62 75 |es = gxN|oAttribu|
|00000690| 74 65 73 3b 0d 09 47 58 | 53 65 74 53 74 79 6c 65 |tes;..GX|SetStyle|
|000006a0| 43 61 70 28 67 54 68 72 | 6f 77 53 74 79 6c 65 2c |Cap(gThr|owStyle,|
|000006b0| 20 26 63 61 70 52 65 63 | 29 3b 0d 09 47 58 44 69 | &capRec|);..GXDi|
|000006c0| 73 70 6f 73 65 53 68 61 | 70 65 28 68 65 61 64 53 |sposeSha|pe(headS|
|000006d0| 68 61 70 65 29 3b 0d 09 | 09 0d 09 2f 2f 20 53 65 |hape);..|...// Se|
|000006e0| 74 20 73 74 79 6c 65 20 | 70 65 6e 0d 09 47 58 53 |t style |pen..GXS|
|000006f0| 65 74 53 74 79 6c 65 50 | 65 6e 28 67 54 68 72 6f |etStyleP|en(gThro|
|00000700| 77 53 74 79 6c 65 2c 20 | 6b 41 72 72 6f 77 50 65 |wStyle, |kArrowPe|
|00000710| 6e 53 69 7a 65 29 3b 0d | 0d 09 2f 2f 20 53 65 74 |nSize);.|..// Set|
|00000720| 20 64 65 76 69 63 65 20 | 67 72 69 64 20 61 74 74 | device |grid att|
|00000730| 72 69 62 75 74 65 20 66 | 6f 72 20 63 6c 65 61 6e |ribute f|or clean|
|00000740| 20 6c 69 6e 65 73 0d 09 | 47 58 53 65 74 53 74 79 | lines..|GXSetSty|
|00000750| 6c 65 41 74 74 72 69 62 | 75 74 65 73 28 67 54 68 |leAttrib|utes(gTh|
|00000760| 72 6f 77 53 74 79 6c 65 | 2c 20 0d 09 09 09 47 58 |rowStyle|, ....GX|
|00000770| 47 65 74 53 74 79 6c 65 | 41 74 74 72 69 62 75 74 |GetStyle|Attribut|
|00000780| 65 73 28 67 54 68 72 6f | 77 53 74 79 6c 65 29 20 |es(gThro|wStyle) |
|00000790| 7c 20 67 78 44 65 76 69 | 63 65 47 72 69 64 53 74 || gxDevi|ceGridSt|
|000007a0| 79 6c 65 29 3b 0d 09 0d | 09 2f 2f 2d 2d 2d 2d 2d |yle);...|.//-----|
|000007b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007c0| 2d 2d 2d 2d 0d 09 2f 2f | 20 42 75 69 6c 64 20 74 |----..//| Build t|
|000007d0| 68 65 20 68 61 6e 64 20 | 73 74 79 6c 65 0d 09 0d |he hand |style...|
|000007e0| 09 67 48 61 6e 64 53 74 | 79 6c 65 20 3d 20 47 58 |.gHandSt|yle = GX|
|000007f0| 4e 65 77 53 74 79 6c 65 | 28 29 3b 0d 0d 09 2f 2f |NewStyle|();...//|
|00000800| 20 53 65 74 20 74 68 65 | 20 66 6f 6e 74 20 26 20 | Set the| font & |
|00000810| 73 69 7a 65 0d 09 53 65 | 74 53 74 79 6c 65 43 6f |size..Se|tStyleCo|
|00000820| 6d 6d 6f 6e 46 6f 6e 74 | 28 67 48 61 6e 64 53 74 |mmonFont|(gHandSt|
|00000830| 79 6c 65 2c 20 67 65 6e | 65 76 61 46 6f 6e 74 29 |yle, gen|evaFont)|
|00000840| 3b 0d 09 47 58 53 65 74 | 53 74 79 6c 65 54 65 78 |;..GXSet|StyleTex|
|00000850| 74 53 69 7a 65 28 67 48 | 61 6e 64 53 74 79 6c 65 |tSize(gH|andStyle|
|00000860| 2c 20 6b 48 61 6e 64 54 | 65 78 74 53 69 7a 65 29 |, kHandT|extSize)|
|00000870| 3b 0d 09 0d 09 2f 2f 2d | 2d 2d 2d 2d 2d 2d 2d 2d |;....//-|--------|
|00000880| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000890| 0d 09 2f 2f 20 42 75 69 | 6c 64 20 74 68 65 20 6c |..// Bui|ld the l|
|000008a0| 61 62 65 6c 20 73 74 79 | 6c 65 0d 09 0d 09 67 4c |abel sty|le....gL|
|000008b0| 61 62 65 6c 53 74 79 6c | 65 20 3d 20 47 58 4e 65 |abelStyl|e = GXNe|
|000008c0| 77 53 74 79 6c 65 28 29 | 3b 0d 0d 09 2f 2f 20 53 |wStyle()|;...// S|
|000008d0| 65 74 20 74 68 65 20 66 | 6f 6e 74 2c 20 73 69 7a |et the f|ont, siz|
|000008e0| 65 2c 20 63 6f 6c 6f 72 | 2c 20 61 6e 64 20 68 69 |e, color|, and hi|
|000008f0| 74 20 74 65 73 74 0d 09 | 53 65 74 53 74 79 6c 65 |t test..|SetStyle|
|00000900| 43 6f 6d 6d 6f 6e 46 6f | 6e 74 28 67 4c 61 62 65 |CommonFo|nt(gLabe|
|00000910| 6c 53 74 79 6c 65 2c 20 | 67 65 6e 65 76 61 46 6f |lStyle, |genevaFo|
|00000920| 6e 74 29 3b 0d 09 47 58 | 53 65 74 53 74 79 6c 65 |nt);..GX|SetStyle|
|00000930| 54 65 78 74 53 69 7a 65 | 28 67 4c 61 62 65 6c 53 |TextSize|(gLabelS|
|00000940| 74 79 6c 65 2c 20 6b 4c | 61 62 65 6c 54 65 78 74 |tyle, kL|abelText|
|00000950| 53 69 7a 65 29 3b 0d 09 | 0d 09 2f 2f 2d 2d 2d 2d |Size);..|..//----|
|00000960| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000970| 2d 2d 2d 2d 2d 0d 09 2f | 2f 20 42 75 69 6c 64 20 |-----../|/ Build |
|00000980| 74 68 65 20 74 68 72 6f | 77 20 69 6e 6b 73 0d 09 |the thro|w inks..|
|00000990| 09 0d 09 53 65 74 43 6f | 6d 6d 6f 6e 43 6f 6c 6f |...SetCo|mmonColo|
|000009a0| 72 28 26 62 67 43 6f 6c | 6f 72 2c 20 6b 42 47 43 |r(&bgCol|or, kBGC|
|000009b0| 6f 6c 6f 72 29 3b 0d 0d | 09 2f 2f 20 6d 61 6b 65 |olor);..|.// make|
|000009c0| 20 74 68 65 20 74 68 72 | 6f 77 20 69 6e 6b 0d 09 | the thr|ow ink..|
|000009d0| 67 54 68 72 6f 77 49 6e | 6b 20 3d 20 47 58 4e 65 |gThrowIn|k = GXNe|
|000009e0| 77 49 6e 6b 28 29 3b 0d | 09 53 65 74 43 6f 6d 6d |wInk();.|.SetComm|
|000009f0| 6f 6e 43 6f 6c 6f 72 28 | 26 72 73 6c 74 43 6f 6c |onColor(|&rsltCol|
|00000a00| 6f 72 2c 20 6b 41 72 72 | 6f 77 43 6f 6c 6f 72 20 |or, kArr|owColor |
|00000a10| 29 3b 0d 09 53 65 74 49 | 6e 6b 46 61 73 74 58 6f |);..SetI|nkFastXo|
|00000a20| 72 54 72 61 6e 73 66 65 | 72 28 67 54 68 72 6f 77 |rTransfe|r(gThrow|
|00000a30| 49 6e 6b 2c 20 67 54 68 | 65 4d 61 69 6e 44 65 76 |Ink, gTh|eMainDev|
|00000a40| 69 63 65 2c 20 6e 69 6c | 2c 20 26 62 67 43 6f 6c |ice, nil|, &bgCol|
|00000a50| 6f 72 2c 20 26 72 73 6c | 74 43 6f 6c 6f 72 29 3b |or, &rsl|tColor);|
|00000a60| 0d 09 09 0d 09 2f 2f 20 | 6d 61 6b 65 20 74 68 65 |.....// |make the|
|00000a70| 20 66 61 64 65 64 20 74 | 68 72 6f 77 20 69 6e 6b | faded t|hrow ink|
|00000a80| 20 61 6e 64 20 73 65 74 | 20 74 6f 20 61 20 34 30 | and set| to a 40|
|00000a90| 25 20 62 6c 65 6e 64 20 | 6f 66 20 74 68 65 20 61 |% blend |of the a|
|00000aa0| 72 72 6f 77 20 63 6f 6c | 6f 72 0d 09 67 46 61 64 |rrow col|or..gFad|
|00000ab0| 65 64 54 68 72 6f 77 49 | 6e 6b 20 3d 20 47 58 4e |edThrowI|nk = GXN|
|00000ac0| 65 77 49 6e 6b 28 29 3b | 0d 09 53 65 74 49 6e 6b |ewInk();|..SetInk|
|00000ad0| 42 6c 65 6e 64 4d 6f 64 | 65 28 67 46 61 64 65 64 |BlendMod|e(gFaded|
|00000ae0| 54 68 72 6f 77 49 6e 6b | 2c 20 34 30 29 3b 0d 09 |ThrowInk|, 40);..|
|00000af0| 53 65 74 49 6e 6b 43 6f | 6d 6d 6f 6e 43 6f 6c 6f |SetInkCo|mmonColo|
|00000b00| 72 28 67 46 61 64 65 64 | 54 68 72 6f 77 49 6e 6b |r(gFaded|ThrowInk|
|00000b10| 2c 20 6b 41 72 72 6f 77 | 43 6f 6c 6f 72 29 3b 0d |, kArrow|Color);.|
|00000b20| 09 2f 2f 20 47 65 74 20 | 74 68 65 20 72 65 73 75 |.// Get |the resu|
|00000b30| 6c 74 69 6e 67 20 63 6f | 6c 6f 72 20 77 68 65 6e |lting co|lor when|
|00000b40| 20 64 72 61 77 6e 20 6f | 6e 20 42 47 43 6f 6c 6f | drawn o|n BGColo|
|00000b50| 72 0d 09 53 65 74 43 6f | 6d 6d 6f 6e 43 6f 6c 6f |r..SetCo|mmonColo|
|00000b60| 72 28 26 72 73 6c 74 43 | 6f 6c 6f 72 2c 20 6b 42 |r(&rsltC|olor, kB|
|00000b70| 47 43 6f 6c 6f 72 29 3b | 0d 09 47 58 43 6f 6d 62 |GColor);|..GXComb|
|00000b80| 69 6e 65 43 6f 6c 6f 72 | 28 26 72 73 6c 74 43 6f |ineColor|(&rsltCo|
|00000b90| 6c 6f 72 2c 20 67 46 61 | 64 65 64 54 68 72 6f 77 |lor, gFa|dedThrow|
|00000ba0| 49 6e 6b 29 3b 0d 09 47 | 58 52 65 73 65 74 49 6e |Ink);..G|XResetIn|
|00000bb0| 6b 28 67 46 61 64 65 64 | 54 68 72 6f 77 49 6e 6b |k(gFaded|ThrowInk|
|00000bc0| 29 3b 20 2f 2f 20 49 20 | 64 6f 6e 27 74 20 6b 6e |); // I |don't kn|
|00000bd0| 6f 77 20 69 66 20 74 68 | 69 73 20 69 73 20 72 65 |ow if th|is is re|
|00000be0| 61 6c 6c 79 20 6e 65 63 | 65 73 73 61 72 79 2c 20 |ally nec|essary, |
|00000bf0| 62 75 74 20 77 68 61 74 | 20 74 68 65 20 68 65 6c |but what| the hel|
|00000c00| 6c 0d 09 53 65 74 49 6e | 6b 46 61 73 74 58 6f 72 |l..SetIn|kFastXor|
|00000c10| 54 72 61 6e 73 66 65 72 | 28 67 46 61 64 65 64 54 |Transfer|(gFadedT|
|00000c20| 68 72 6f 77 49 6e 6b 2c | 20 67 54 68 65 4d 61 69 |hrowInk,| gTheMai|
|00000c30| 6e 44 65 76 69 63 65 2c | 20 6e 69 6c 2c 20 26 62 |nDevice,| nil, &b|
|00000c40| 67 43 6f 6c 6f 72 2c 20 | 26 72 73 6c 74 43 6f 6c |gColor, |&rsltCol|
|00000c50| 6f 72 29 3b 0d 0d 09 2f | 2f 2d 2d 2d 2d 2d 2d 2d |or);.../|/-------|
|00000c60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000c70| 2d 2d 0d 09 2f 2f 20 42 | 75 69 6c 64 20 74 68 65 |--..// B|uild the|
|00000c80| 20 68 61 6e 64 20 69 6e | 6b 73 0d 09 0d 09 2f 2f | hand in|ks....//|
|00000c90| 20 6d 61 6b 65 20 74 68 | 65 20 62 61 73 69 63 20 | make th|e basic |
|00000ca0| 68 61 6e 64 20 69 6e 6b | 0d 09 67 48 61 6e 64 49 |hand ink|..gHandI|
|00000cb0| 6e 6b 20 3d 20 47 58 4e | 65 77 49 6e 6b 28 29 3b |nk = GXN|ewInk();|
|00000cc0| 0d 09 53 65 74 49 6e 6b | 43 6f 6d 6d 6f 6e 43 6f |..SetInk|CommonCo|
|00000cd0| 6c 6f 72 28 67 48 61 6e | 64 49 6e 6b 2c 20 6b 48 |lor(gHan|dInk, kH|
|00000ce0| 61 6e 64 43 6f 6c 6f 72 | 29 3b 0d 09 0d 09 2f 2f |andColor|);....//|
|00000cf0| 20 6d 61 6b 65 20 74 68 | 65 20 66 61 64 65 64 20 | make th|e faded |
|00000d00| 68 61 6e 64 20 69 6e 6b | 2c 20 61 20 62 6c 65 6e |hand ink|, a blen|
|00000d10| 64 20 77 69 74 68 20 74 | 68 65 20 62 61 63 6b 67 |d with t|he backg|
|00000d20| 72 6f 75 6e 64 0d 09 67 | 46 61 64 65 64 48 61 6e |round..g|FadedHan|
|00000d30| 64 49 6e 6b 20 3d 20 47 | 58 4e 65 77 49 6e 6b 28 |dInk = G|XNewInk(|
|00000d40| 29 3b 0d 09 53 65 74 49 | 6e 6b 42 6c 65 6e 64 4d |);..SetI|nkBlendM|
|00000d50| 6f 64 65 28 67 46 61 64 | 65 64 48 61 6e 64 49 6e |ode(gFad|edHandIn|
|00000d60| 6b 2c 20 34 30 29 3b 0d | 09 53 65 74 49 6e 6b 43 |k, 40);.|.SetInkC|
|00000d70| 6f 6d 6d 6f 6e 43 6f 6c | 6f 72 28 67 46 61 64 65 |ommonCol|or(gFade|
|00000d80| 64 48 61 6e 64 49 6e 6b | 2c 20 6b 48 61 6e 64 43 |dHandInk|, kHandC|
|00000d90| 6f 6c 6f 72 29 3b 0d 09 | 2f 2f 20 47 65 74 20 74 |olor);..|// Get t|
|00000da0| 68 65 20 72 65 73 75 6c | 74 69 6e 67 20 63 6f 6c |he resul|ting col|
|00000db0| 6f 72 20 77 68 65 6e 20 | 64 72 61 77 6e 20 6f 6e |or when |drawn on|
|00000dc0| 20 42 47 43 6f 6c 6f 72 | 0d 09 53 65 74 43 6f 6d | BGColor|..SetCom|
|00000dd0| 6d 6f 6e 43 6f 6c 6f 72 | 28 26 72 73 6c 74 43 6f |monColor|(&rsltCo|
|00000de0| 6c 6f 72 2c 20 6b 42 47 | 43 6f 6c 6f 72 29 3b 0d |lor, kBG|Color);.|
|00000df0| 09 47 58 43 6f 6d 62 69 | 6e 65 43 6f 6c 6f 72 28 |.GXCombi|neColor(|
|00000e00| 26 72 73 6c 74 43 6f 6c | 6f 72 2c 20 67 46 61 64 |&rsltCol|or, gFad|
|00000e10| 65 64 48 61 6e 64 49 6e | 6b 29 3b 0d 09 47 58 52 |edHandIn|k);..GXR|
|00000e20| 65 73 65 74 49 6e 6b 28 | 67 46 61 64 65 64 48 61 |esetInk(|gFadedHa|
|00000e30| 6e 64 49 6e 6b 29 3b 20 | 2f 2f 20 49 20 64 6f 6e |ndInk); |// I don|
|00000e40| 27 74 20 6b 6e 6f 77 20 | 69 66 20 74 68 69 73 20 |'t know |if this |
|00000e50| 69 73 20 72 65 61 6c 6c | 79 20 6e 65 63 65 73 73 |is reall|y necess|
|00000e60| 61 72 79 2c 20 62 75 74 | 20 77 68 61 74 20 74 68 |ary, but| what th|
|00000e70| 65 20 68 65 6c 6c 0d 09 | 47 58 53 65 74 49 6e 6b |e hell..|GXSetInk|
|00000e80| 43 6f 6c 6f 72 28 67 46 | 61 64 65 64 48 61 6e 64 |Color(gF|adedHand|
|00000e90| 49 6e 6b 2c 20 26 72 73 | 6c 74 43 6f 6c 6f 72 29 |Ink, &rs|ltColor)|
|00000ea0| 3b 0d 09 0d 09 2f 2f 20 | 42 75 69 6c 64 20 74 68 |;....// |Build th|
|00000eb0| 65 20 6c 61 62 65 6c 20 | 69 6e 6b 0d 09 67 4c 61 |e label |ink..gLa|
|00000ec0| 62 65 6c 49 6e 6b 20 3d | 20 47 58 4e 65 77 49 6e |belInk =| GXNewIn|
|00000ed0| 6b 28 29 3b 0d 09 53 65 | 74 49 6e 6b 43 6f 6d 6d |k();..Se|tInkComm|
|00000ee0| 6f 6e 43 6f 6c 6f 72 28 | 67 4c 61 62 65 6c 49 6e |onColor(|gLabelIn|
|00000ef0| 6b 2c 20 6b 4c 61 62 65 | 6c 43 6f 6c 6f 72 29 3b |k, kLabe|lColor);|
|00000f00| 0d 7d 0d 0d 76 6f 69 64 | 20 4b 69 6c 6c 43 6f 6d |.}..void| KillCom|
|00000f10| 6d 6f 6e 47 72 61 70 68 | 69 63 4f 62 6a 65 63 74 |monGraph|icObject|
|00000f20| 73 28 76 6f 69 64 29 0d | 7b 0d 09 47 58 44 69 73 |s(void).|{..GXDis|
|00000f30| 70 6f 73 65 53 74 79 6c | 65 28 67 54 68 72 6f 77 |poseStyl|e(gThrow|
|00000f40| 53 74 79 6c 65 29 3b 0d | 09 47 58 44 69 73 70 6f |Style);.|.GXDispo|
|00000f50| 73 65 53 74 79 6c 65 28 | 67 48 61 6e 64 53 74 79 |seStyle(|gHandSty|
|00000f60| 6c 65 29 3b 0d 09 47 58 | 44 69 73 70 6f 73 65 53 |le);..GX|DisposeS|
|00000f70| 74 79 6c 65 28 67 4c 61 | 62 65 6c 53 74 79 6c 65 |tyle(gLa|belStyle|
|00000f80| 29 3b 0d 09 47 58 44 69 | 73 70 6f 73 65 49 6e 6b |);..GXDi|sposeInk|
|00000f90| 28 67 54 68 72 6f 77 49 | 6e 6b 29 3b 0d 09 47 58 |(gThrowI|nk);..GX|
|00000fa0| 44 69 73 70 6f 73 65 49 | 6e 6b 28 67 46 61 64 65 |DisposeI|nk(gFade|
|00000fb0| 64 54 68 72 6f 77 49 6e | 6b 29 3b 0d 09 47 58 44 |dThrowIn|k);..GXD|
|00000fc0| 69 73 70 6f 73 65 49 6e | 6b 28 67 48 61 6e 64 49 |isposeIn|k(gHandI|
|00000fd0| 6e 6b 29 3b 0d 09 47 58 | 44 69 73 70 6f 73 65 49 |nk);..GX|DisposeI|
|00000fe0| 6e 6b 28 67 46 61 64 65 | 64 48 61 6e 64 49 6e 6b |nk(gFade|dHandInk|
|00000ff0| 29 3b 0d 09 47 58 44 69 | 73 70 6f 73 65 49 6e 6b |);..GXDi|sposeInk|
|00001000| 28 67 4c 61 62 65 6c 49 | 6e 6b 29 3b 0d 7d 0d 0d |(gLabelI|nk);.}..|
|00001010| 2f 2f 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |//------|--------|
|00001020| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001030| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001040| 2d 2d 2d 2d 2d 2d 0d 2f | 2f 20 73 68 61 70 65 20 |------./|/ shape |
|00001050| 63 72 65 61 74 69 6f 6e | 20 72 6f 75 74 69 6e 65 |creation| routine|
|00001060| 73 0d 0d 2f 2f 20 4d 61 | 6b 65 20 61 20 6e 65 77 |s..// Ma|ke a new|
|00001070| 20 61 72 72 6f 77 20 74 | 6f 20 72 65 70 72 65 73 | arrow t|o repres|
|00001080| 65 6e 74 20 61 20 74 68 | 72 6f 77 2c 20 69 6e 20 |ent a th|row, in |
|00001090| 74 68 65 20 64 65 66 61 | 75 6c 74 20 70 6f 73 69 |the defa|ult posi|
|000010a0| 74 69 6f 6e 2c 20 70 65 | 72 68 61 70 73 20 66 61 |tion, pe|rhaps fa|
|000010b0| 64 65 64 0d 67 78 53 68 | 61 70 65 09 4d 61 6b 65 |ded.gxSh|ape.Make|
|000010c0| 54 68 72 6f 77 53 68 61 | 70 65 28 4a 75 67 67 6c |ThrowSha|pe(Juggl|
|000010d0| 65 48 61 6e 64 6c 65 20 | 61 4a 75 67 67 6c 65 2c |eHandle |aJuggle,|
|000010e0| 20 42 6f 6f 6c 65 61 6e | 20 66 61 64 65 64 29 0d | Boolean| faded).|
|000010f0| 7b 0d 09 67 78 53 68 61 | 70 65 09 09 6e 65 77 53 |{..gxSha|pe..newS|
|00001100| 68 61 70 65 3b 0d 09 67 | 78 4c 69 6e 65 09 09 6c |hape;..g|xLine..l|
|00001110| 69 6e 65 44 61 74 61 3b | 0d 09 46 69 78 65 64 09 |ineData;|..Fixed.|
|00001120| 09 68 47 72 69 64 20 3d | 20 28 2a 61 4a 75 67 67 |.hGrid =| (*aJugg|
|00001130| 6c 65 29 2d 3e 67 72 69 | 64 50 74 2e 78 3b 0d 09 |le)->gri|dPt.x;..|
|00001140| 0d 09 2f 2f 20 49 6e 69 | 74 69 61 6c 69 7a 65 20 |..// Ini|tialize |
|00001150| 74 68 65 20 6c 69 6e 65 | 20 67 65 6f 6d 65 74 72 |the line| geometr|
|00001160| 79 0d 09 6c 69 6e 65 44 | 61 74 61 2e 66 69 72 73 |y..lineD|ata.firs|
|00001170| 74 2e 78 20 3d 20 30 3b | 0d 09 6c 69 6e 65 44 61 |t.x = 0;|..lineDa|
|00001180| 74 61 2e 66 69 72 73 74 | 2e 79 20 3d 20 30 3b 0d |ta.first|.y = 0;.|
|00001190| 09 6c 69 6e 65 44 61 74 | 61 2e 6c 61 73 74 2e 78 |.lineDat|a.last.x|
|000011a0| 20 3d 20 68 47 72 69 64 | 3b 0d 09 6c 69 6e 65 44 | = hGrid|;..lineD|
|000011b0| 61 74 61 2e 6c 61 73 74 | 2e 79 20 3d 20 30 3b 0d |ata.last|.y = 0;.|
|000011c0| 09 0d 09 2f 2f 20 4d 61 | 6b 65 20 74 68 65 20 6c |...// Ma|ke the l|
|000011d0| 69 6e 65 20 73 68 61 70 | 65 0d 09 6e 65 77 53 68 |ine shap|e..newSh|
|000011e0| 61 70 65 20 3d 20 47 58 | 4e 65 77 4c 69 6e 65 28 |ape = GX|NewLine(|
|000011f0| 26 6c 69 6e 65 44 61 74 | 61 29 3b 0d 09 4e 69 6c |&lineDat|a);..Nil|
|00001200| 53 68 61 70 65 52 65 74 | 75 72 6e 4e 69 6c 28 6e |ShapeRet|urnNil(n|
|00001210| 65 77 53 68 61 70 65 29 | 3b 0d 09 0d 09 47 58 53 |ewShape)|;....GXS|
|00001220| 65 74 53 68 61 70 65 48 | 69 74 54 65 73 74 28 6e |etShapeH|itTest(n|
|00001230| 65 77 53 68 61 70 65 2c | 20 67 78 43 6f 72 6e 65 |ewShape,| gxCorne|
|00001240| 72 50 6f 69 6e 74 50 61 | 72 74 20 2b 20 67 78 45 |rPointPa|rt + gxE|
|00001250| 64 67 65 50 61 72 74 20 | 2b 20 67 78 45 6e 64 43 |dgePart |+ gxEndC|
|00001260| 61 70 50 61 72 74 2c 0d | 09 09 09 09 09 09 6b 41 |apPart,.|......kA|
|00001270| 72 72 6f 77 50 65 6e 53 | 69 7a 65 29 3b 0d 09 0d |rrowPenS|ize);...|
|00001280| 09 2f 2f 20 53 65 74 20 | 69 74 73 20 73 74 79 6c |.// Set |its styl|
|00001290| 65 20 61 6e 64 20 69 6e | 6b 20 74 6f 20 6f 75 72 |e and in|k to our|
|000012a0| 20 67 6c 6f 62 61 6c 20 | 6f 6e 65 73 0d 09 47 58 | global |ones..GX|
|000012b0| 53 65 74 53 68 61 70 65 | 53 74 79 6c 65 28 6e 65 |SetShape|Style(ne|
|000012c0| 77 53 68 61 70 65 2c 20 | 67 54 68 72 6f 77 53 74 |wShape, |gThrowSt|
|000012d0| 79 6c 65 29 3b 0d 09 69 | 66 28 66 61 64 65 64 29 |yle);..i|f(faded)|
|000012e0| 0d 09 7b 0d 09 09 47 58 | 53 65 74 53 68 61 70 65 |..{...GX|SetShape|
|000012f0| 49 6e 6b 28 6e 65 77 53 | 68 61 70 65 2c 20 67 46 |Ink(newS|hape, gF|
|00001300| 61 64 65 64 54 68 72 6f | 77 49 6e 6b 29 3b 0d 09 |adedThro|wInk);..|
|00001310| 09 2f 2f 20 53 65 74 20 | 73 68 61 70 65 20 74 6f |.// Set |shape to|
|00001320| 20 64 72 61 77 20 74 6f | 20 74 68 65 20 61 6c 74 | draw to| the alt|
|00001330| 65 72 6e 61 74 65 20 76 | 69 65 77 20 70 6f 72 74 |ernate v|iew port|
|00001340| 73 0d 09 09 53 65 74 53 | 68 61 70 65 46 61 64 65 |s...SetS|hapeFade|
|00001350| 50 6f 72 74 73 28 61 4a | 75 67 67 6c 65 2c 20 6e |Ports(aJ|uggle, n|
|00001360| 65 77 53 68 61 70 65 29 | 3b 0d 09 7d 0d 09 65 6c |ewShape)|;..}..el|
|00001370| 73 65 0d 09 7b 0d 09 09 | 47 58 53 65 74 53 68 61 |se..{...|GXSetSha|
|00001380| 70 65 49 6e 6b 28 6e 65 | 77 53 68 61 70 65 2c 20 |peInk(ne|wShape, |
|00001390| 67 54 68 72 6f 77 49 6e | 6b 29 3b 0d 20 09 09 53 |gThrowIn|k);. ..S|
|000013a0| 65 74 53 68 61 70 65 4d | 61 69 6e 50 6f 72 74 28 |etShapeM|ainPort(|
|000013b0| 61 4a 75 67 67 6c 65 2c | 20 6e 65 77 53 68 61 70 |aJuggle,| newShap|
|000013c0| 65 29 3b 0d 09 7d 0d 09 | 0d 09 72 65 74 75 72 6e |e);..}..|..return|
|000013d0| 20 6e 65 77 53 68 61 70 | 65 3b 0d 7d 0d 0d 2f 2f | newShap|e;.}..//|
|000013e0| 20 4d 61 6b 65 20 61 20 | 6e 65 77 20 74 65 78 74 | Make a |new text|
|000013f0| 20 73 68 61 70 65 2c 20 | 4c 20 6f 72 20 52 09 0d | shape, |L or R..|
|00001400| 67 78 53 68 61 70 65 09 | 4d 61 6b 65 48 61 6e 64 |gxShape.|MakeHand|
|00001410| 53 68 61 70 65 28 42 6f | 6f 6c 65 61 6e 20 72 69 |Shape(Bo|olean ri|
|00001420| 67 68 74 48 61 6e 64 2c | 20 42 6f 6f 6c 65 61 6e |ghtHand,| Boolean|
|00001430| 20 66 61 64 65 64 29 0d | 7b 0d 09 67 78 53 68 61 | faded).|{..gxSha|
|00001440| 70 65 09 09 6e 65 77 53 | 68 61 70 65 3b 0d 0d 09 |pe..newS|hape;...|
|00001450| 2f 2f 20 4d 61 6b 65 20 | 74 68 65 20 74 65 78 74 |// Make |the text|
|00001460| 20 73 68 61 70 65 0d 09 | 69 66 28 72 69 67 68 74 | shape..|if(right|
|00001470| 48 61 6e 64 29 0d 09 09 | 6e 65 77 53 68 61 70 65 |Hand)...|newShape|
|00001480| 20 3d 20 47 58 4e 65 77 | 54 65 78 74 28 31 2c 28 | = GXNew|Text(1,(|
|00001490| 75 6e 73 69 67 6e 65 64 | 20 63 68 61 72 2a 29 22 |unsigned| char*)"|
|000014a0| 52 22 2c 20 20 6e 69 6c | 29 3b 0d 09 65 6c 73 65 |R",  nil|);..else|
|000014b0| 09 2f 2f 20 54 68 69 73 | 20 77 6f 75 6c 64 20 68 |.// This| would h|
|000014c0| 61 76 65 20 74 6f 20 63 | 68 61 6e 67 65 20 66 6f |ave to c|hange fo|
|000014d0| 72 20 74 68 72 65 65 20 | 61 72 6d 65 64 20 6a 75 |r three |armed ju|
|000014e0| 67 67 6c 65 72 73 0d 09 | 09 6e 65 77 53 68 61 70 |gglers..|.newShap|
|000014f0| 65 20 3d 20 47 58 4e 65 | 77 54 65 78 74 28 31 2c |e = GXNe|wText(1,|
|00001500| 28 75 6e 73 69 67 6e 65 | 64 20 63 68 61 72 2a 29 |(unsigne|d char*)|
|00001510| 22 4c 22 2c 20 20 6e 69 | 6c 29 3b 0d 09 4e 69 6c |"L",  ni|l);..Nil|
|00001520| 53 68 61 70 65 52 65 74 | 75 72 6e 4e 69 6c 28 6e |ShapeRet|urnNil(n|
|00001530| 65 77 53 68 61 70 65 29 | 3b 0d 09 0d 09 2f 2f 20 |ewShape)|;....// |
|00001540| 53 65 74 20 69 74 73 20 | 73 74 79 6c 65 20 61 6e |Set its |style an|
|00001550| 64 20 69 6e 6b 20 74 6f | 20 6f 75 72 20 67 6c 6f |d ink to| our glo|
|00001560| 62 61 6c 20 6f 6e 65 73 | 0d 09 47 58 53 65 74 53 |bal ones|..GXSetS|
|00001570| 68 61 70 65 53 74 79 6c | 65 28 6e 65 77 53 68 61 |hapeStyl|e(newSha|
|00001580| 70 65 2c 20 67 48 61 6e | 64 53 74 79 6c 65 29 3b |pe, gHan|dStyle);|
|00001590| 0d 09 69 66 28 66 61 64 | 65 64 29 0d 09 7b 0d 09 |..if(fad|ed)..{..|
|000015a0| 09 47 58 53 65 74 53 68 | 61 70 65 49 6e 6b 28 6e |.GXSetSh|apeInk(n|
|000015b0| 65 77 53 68 61 70 65 2c | 20 67 46 61 64 65 64 48 |ewShape,| gFadedH|
|000015c0| 61 6e 64 49 6e 6b 29 3b | 0d 09 7d 0d 09 65 6c 73 |andInk);|..}..els|
|000015d0| 65 0d 09 7b 0d 09 09 47 | 58 53 65 74 53 68 61 70 |e..{...G|XSetShap|
|000015e0| 65 49 6e 6b 28 6e 65 77 | 53 68 61 70 65 2c 20 67 |eInk(new|Shape, g|
|000015f0| 48 61 6e 64 49 6e 6b 29 | 3b 0d 09 7d 0d 09 0d 09 |HandInk)|;..}....|
|00001600| 2f 2f 20 48 69 74 20 74 | 65 73 74 20 64 65 66 61 |// Hit t|est defa|
|00001610| 75 6c 74 73 20 74 6f 20 | 67 78 42 6f 75 6e 64 73 |ults to |gxBounds|
|00001620| 50 61 72 74 2c 20 30 20 | 74 6f 6c 65 72 61 6e 63 |Part, 0 |toleranc|
|00001630| 65 2c 20 77 68 69 63 68 | 20 69 73 20 66 69 6e 65 |e, which| is fine|
|00001640| 0d 09 72 65 74 75 72 6e | 20 6e 65 77 53 68 61 70 |..return| newShap|
|00001650| 65 3b 0d 7d 0d 0d 2f 2f | 20 4d 61 6b 65 20 61 20 |e;.}..//| Make a |
|00001660| 6e 65 77 20 74 65 78 74 | 20 73 68 61 70 65 20 63 |new text| shape c|
|00001670| 6f 6e 74 61 69 6e 69 6e | 67 20 22 4a 75 67 67 6c |ontainin|g "Juggl|
|00001680| 65 72 20 58 22 20 77 68 | 65 72 65 20 58 20 69 73 |er X" wh|ere X is|
|00001690| 20 74 68 65 20 6a 75 67 | 67 6c 65 72 4e 75 6d 62 | the jug|glerNumb|
|000016a0| 65 72 0d 2f 2f 20 6d 6f | 64 69 66 69 65 64 20 74 |er.// mo|dified t|
|000016b0| 6f 20 6a 75 73 74 20 62 | 65 20 74 68 65 20 6e 75 |o just b|e the nu|
|000016c0| 6d 62 65 72 0d 67 78 53 | 68 61 70 65 09 4d 61 6b |mber.gxS|hape.Mak|
|000016d0| 65 4c 61 62 65 6c 53 68 | 61 70 65 28 73 68 6f 72 |eLabelSh|ape(shor|
|000016e0| 74 20 6a 75 67 67 6c 65 | 72 4e 75 6d 62 65 72 29 |t juggle|rNumber)|
|000016f0| 0d 7b 0d 09 67 78 53 68 | 61 70 65 09 09 6e 65 77 |.{..gxSh|ape..new|
|00001700| 53 68 61 70 65 3b 0d 09 | 63 68 61 72 09 09 6e 75 |Shape;..|char..nu|
|00001710| 6d 62 65 72 54 65 78 74 | 5b 35 30 5d 2c 20 6c 61 |mberText|[50], la|
|00001720| 62 65 6c 54 65 78 74 5b | 35 30 5d 20 3d 20 22 4a |belText[|50] = "J|
|00001730| 75 67 67 6c 65 72 20 22 | 3b 0d 09 73 68 6f 72 74 |uggler "|;..short|
|00001740| 09 09 6c 65 6e 67 74 68 | 3b 0d 09 0d 09 2f 2f 20 |..length|;....// |
|00001750| 4d 61 6b 65 20 74 68 65 | 20 6c 61 62 65 6c 20 73 |Make the| label s|
|00001760| 74 72 69 6e 67 0d 09 4e | 75 6d 54 6f 53 74 72 69 |tring..N|umToStri|
|00001770| 6e 67 28 28 6c 6f 6e 67 | 29 6a 75 67 67 6c 65 72 |ng((long|)juggler|
|00001780| 4e 75 6d 62 65 72 2c 20 | 28 53 74 72 69 6e 67 50 |Number, |(StringP|
|00001790| 74 72 29 6e 75 6d 62 65 | 72 54 65 78 74 29 3b 0d |tr)numbe|rText);.|
|000017a0| 09 70 32 63 28 28 53 74 | 72 69 6e 67 50 74 72 29 |.p2c((St|ringPtr)|
|000017b0| 6e 75 6d 62 65 72 54 65 | 78 74 29 3b 0d 09 63 63 |numberTe|xt);..cc|
|000017c0| 61 74 28 6c 61 62 65 6c | 54 65 78 74 2c 20 6e 75 |at(label|Text, nu|
|000017d0| 6d 62 65 72 54 65 78 74 | 29 3b 0d 09 6c 65 6e 67 |mberText|);..leng|
|000017e0| 74 68 20 3d 20 63 6c 65 | 6e 28 6c 61 62 65 6c 54 |th = cle|n(labelT|
|000017f0| 65 78 74 29 3b 0d 09 0d | 09 2f 2f 20 4d 61 6b 65 |ext);...|.// Make|
|00001800| 20 74 68 65 20 74 65 78 | 74 20 73 68 61 70 65 0d | the tex|t shape.|
|00001810| 09 6e 65 77 53 68 61 70 | 65 20 3d 20 47 58 4e 65 |.newShap|e = GXNe|
|00001820| 77 54 65 78 74 28 6c 65 | 6e 67 74 68 2c 20 28 75 |wText(le|ngth, (u|
|00001830| 6e 73 69 67 6e 65 64 20 | 63 68 61 72 2a 29 6c 61 |nsigned |char*)la|
|00001840| 62 65 6c 54 65 78 74 2c | 20 20 6e 69 6c 29 3b 0d |belText,|  nil);.|
|00001850| 09 4e 69 6c 53 68 61 70 | 65 52 65 74 75 72 6e 4e |.NilShap|eReturnN|
|00001860| 69 6c 28 6e 65 77 53 68 | 61 70 65 29 3b 0d 0d 09 |il(newSh|ape);...|
|00001870| 2f 2f 20 53 65 74 20 69 | 74 73 20 73 74 79 6c 65 |// Set i|ts style|
|00001880| 20 61 6e 64 20 69 6e 6b | 20 74 6f 20 6f 75 72 20 | and ink| to our |
|00001890| 67 6c 6f 62 61 6c 20 6f | 6e 65 73 0d 09 47 58 53 |global o|nes..GXS|
|000018a0| 65 74 53 68 61 70 65 53 | 74 79 6c 65 28 6e 65 77 |etShapeS|tyle(new|
|000018b0| 53 68 61 70 65 2c 20 67 | 4c 61 62 65 6c 53 74 79 |Shape, g|LabelSty|
|000018c0| 6c 65 29 3b 0d 09 47 58 | 53 65 74 53 68 61 70 65 |le);..GX|SetShape|
|000018d0| 49 6e 6b 28 6e 65 77 53 | 68 61 70 65 2c 20 67 4c |Ink(newS|hape, gL|
|000018e0| 61 62 65 6c 49 6e 6b 29 | 3b 0d 09 0d 09 2f 2f 20 |abelInk)|;....// |
|000018f0| 48 69 74 20 74 65 73 74 | 20 64 65 66 61 75 6c 74 |Hit test| default|
|00001900| 73 20 74 6f 20 67 78 42 | 6f 75 6e 64 73 50 61 72 |s to gxB|oundsPar|
|00001910| 74 2c 20 30 20 74 6f 6c | 65 72 61 6e 63 65 0d 09 |t, 0 tol|erance..|
|00001920| 72 65 74 75 72 6e 20 6e | 65 77 53 68 61 70 65 3b |return n|ewShape;|
|00001930| 0d 7d 0d 0d 2f 2f 20 4d | 61 6b 65 20 61 20 73 65 |.}..// M|ake a se|
|00001940| 70 61 72 61 74 6f 72 20 | 73 68 61 70 65 2c 20 61 |parator |shape, a|
|00001950| 20 64 61 73 68 65 64 20 | 6c 69 6e 65 2c 20 69 6e | dashed |line, in|
|00001960| 20 64 65 66 61 75 6c 74 | 20 70 6f 73 69 74 69 6f | default| positio|
|00001970| 6e 20 28 75 6e 64 65 72 | 20 66 69 72 73 74 20 72 |n (under| first r|
|00001980| 6f 77 20 6f 72 0d 2f 2f | 20 61 74 20 74 68 65 20 |ow or.//| at the |
|00001990| 6c 65 66 74 29 0d 67 78 | 53 68 61 70 65 09 4d 61 |left).gx|Shape.Ma|
|000019a0| 6b 65 53 65 70 61 72 61 | 74 6f 72 53 68 61 70 65 |keSepara|torShape|
|000019b0| 28 4a 75 67 67 6c 65 48 | 61 6e 64 6c 65 20 61 4a |(JuggleH|andle aJ|
|000019c0| 75 67 67 6c 65 2c 20 42 | 6f 6f 6c 65 61 6e 20 69 |uggle, B|oolean i|
|000019d0| 73 48 6f 72 69 7a 29 0d | 7b 0d 09 67 78 53 68 61 |sHoriz).|{..gxSha|
|000019e0| 70 65 09 09 09 6e 65 77 | 53 68 61 70 65 2c 20 64 |pe...new|Shape, d|
|000019f0| 61 73 68 53 68 61 70 65 | 3b 0d 09 67 78 4c 69 6e |ashShape|;..gxLin|
|00001a00| 65 09 09 09 6c 69 6e 65 | 44 61 74 61 3b 0d 09 67 |e...line|Data;..g|
|00001a10| 78 52 65 63 74 61 6e 67 | 6c 65 09 09 64 61 73 68 |xRectang|le..dash|
|00001a20| 52 65 63 74 20 3d 20 7b | 30 2c 20 2d 66 6c 28 2e |Rect = {|0, -fl(.|
|00001a30| 35 29 2c 20 66 66 28 32 | 29 2c 20 66 6c 28 2e 35 |5), ff(2|), fl(.5|
|00001a40| 29 7d 3b 0d 20 09 67 78 | 44 61 73 68 52 65 63 6f |)};. .gx|DashReco|
|00001a50| 72 64 20 09 74 68 65 44 | 61 73 68 52 65 63 6f 72 |rd .theD|ashRecor|
|00001a60| 64 3b 0d 20 09 67 78 50 | 6f 69 6e 74 09 09 09 67 |d;. .gxP|oint...g|
|00001a70| 72 69 64 3b 0d 20 09 0d | 20 09 67 72 69 64 20 3d |rid;. ..| .grid =|
|00001a80| 20 28 2a 61 4a 75 67 67 | 6c 65 29 2d 3e 67 72 69 | (*aJugg|le)->gri|
|00001a90| 64 50 74 3b 0d 0d 09 2f | 2f 20 49 6e 69 74 69 61 |dPt;.../|/ Initia|
|00001aa0| 6c 69 7a 65 20 74 68 65 | 20 6c 69 6e 65 20 67 65 |lize the| line ge|
|00001ab0| 6f 6d 65 74 72 79 0d 09 | 69 66 28 69 73 48 6f 72 |ometry..|if(isHor|
|00001ac0| 69 7a 29 0d 09 7b 0d 09 | 09 6c 69 6e 65 44 61 74 |iz)..{..|.lineDat|
|00001ad0| 61 2e 66 69 72 73 74 2e | 78 20 3d 20 30 3b 0d 09 |a.first.|x = 0;..|
|00001ae0| 09 6c 69 6e 65 44 61 74 | 61 2e 6c 61 73 74 2e 78 |.lineDat|a.last.x|
|00001af0| 20 3d 20 67 72 69 64 2e | 78 20 2a 20 28 28 2a 61 | = grid.|x * ((*a|
|00001b00| 4a 75 67 67 6c 65 29 2d | 3e 6e 75 6d 43 6f 75 6e |Juggle)-|>numCoun|
|00001b10| 74 73 20 2d 20 31 29 3b | 0d 09 09 6c 69 6e 65 44 |ts - 1);|...lineD|
|00001b20| 61 74 61 2e 66 69 72 73 | 74 2e 79 20 3d 20 6c 69 |ata.firs|t.y = li|
|00001b30| 6e 65 44 61 74 61 2e 6c | 61 73 74 2e 79 20 3d 20 |neData.l|ast.y = |
|00001b40| 67 72 69 64 2e 79 20 2f | 20 32 3b 0d 09 7d 0d 09 |grid.y /| 2;..}..|
|00001b50| 65 6c 73 65 0d 09 7b 0d | 09 09 6c 69 6e 65 44 61 |else..{.|..lineDa|
|00001b60| 74 61 2e 66 69 72 73 74 | 2e 78 20 3d 20 6c 69 6e |ta.first|.x = lin|
|00001b70| 65 44 61 74 61 2e 6c 61 | 73 74 2e 78 20 3d 20 2d |eData.la|st.x = -|
|00001b80| 28 67 72 69 64 2e 78 20 | 2f 20 32 29 3b 0d 09 09 |(grid.x |/ 2);...|
|00001b90| 6c 69 6e 65 44 61 74 61 | 2e 66 69 72 73 74 2e 79 |lineData|.first.y|
|00001ba0| 20 3d 20 2d 28 67 72 69 | 64 2e 79 20 2f 20 32 29 | = -(gri|d.y / 2)|
|00001bb0| 3b 0d 09 09 6c 69 6e 65 | 44 61 74 61 2e 6c 61 73 |;...line|Data.las|
|00001bc0| 74 2e 79 20 3d 20 28 67 | 72 69 64 2e 79 20 2a 20 |t.y = (g|rid.y * |
|00001bd0| 28 28 2a 61 4a 75 67 67 | 6c 65 29 2d 3e 6e 75 6d |((*aJugg|le)->num|
|00001be0| 4a 75 67 67 6c 65 72 73 | 20 2d 20 31 29 29 20 2b |Jugglers| - 1)) +|
|00001bf0| 20 28 67 72 69 64 2e 79 | 20 2f 20 32 29 3b 0d 09 | (grid.y| / 2);..|
|00001c00| 7d 0d 0d 09 2f 2f 20 4d | 61 6b 65 20 74 68 65 20 |}...// M|ake the |
|00001c10| 6c 69 6e 65 20 73 68 61 | 70 65 0d 09 6e 65 77 53 |line sha|pe..newS|
|00001c20| 68 61 70 65 20 3d 20 47 | 58 4e 65 77 4c 69 6e 65 |hape = G|XNewLine|
|00001c30| 28 26 6c 69 6e 65 44 61 | 74 61 29 3b 0d 09 4e 69 |(&lineDa|ta);..Ni|
|00001c40| 6c 53 68 61 70 65 52 65 | 74 75 72 6e 4e 69 6c 28 |lShapeRe|turnNil(|
|00001c50| 6e 65 77 53 68 61 70 65 | 29 3b 0d 09 0d 09 2f 2f |newShape|);....//|
|00001c60| 20 4d 61 6b 65 20 74 68 | 65 20 64 61 73 68 20 73 | Make th|e dash s|
|00001c70| 68 61 70 65 0d 09 64 61 | 73 68 53 68 61 70 65 20 |hape..da|shShape |
|00001c80| 3d 20 47 58 4e 65 77 52 | 65 63 74 61 6e 67 6c 65 |= GXNewR|ectangle|
|00001c90| 28 26 64 61 73 68 52 65 | 63 74 29 3b 0d 09 4e 69 |(&dashRe|ct);..Ni|
|00001ca0| 6c 53 68 61 70 65 52 65 | 74 75 72 6e 4e 69 6c 28 |lShapeRe|turnNil(|
|00001cb0| 64 61 73 68 53 68 61 70 | 65 29 3b 0d 09 0d 09 2f |dashShap|e);..../|
|00001cc0| 2f 20 41 64 64 20 74 68 | 65 20 64 61 73 68 20 61 |/ Add th|e dash a|
|00001cd0| 6e 64 20 64 69 73 70 6f | 73 65 20 69 74 0d 09 74 |nd dispo|se it..t|
|00001ce0| 68 65 44 61 73 68 52 65 | 63 6f 72 64 2e 61 74 74 |heDashRe|cord.att|
|00001cf0| 72 69 62 75 74 65 73 20 | 3d 20 67 78 41 75 74 6f |ributes |= gxAuto|
|00001d00| 41 64 76 61 6e 63 65 44 | 61 73 68 3b 0d 09 74 68 |AdvanceD|ash;..th|
|00001d10| 65 44 61 73 68 52 65 63 | 6f 72 64 2e 64 61 73 68 |eDashRec|ord.dash|
|00001d20| 20 3d 20 64 61 73 68 53 | 68 61 70 65 3b 0d 09 74 | = dashS|hape;..t|
|00001d30| 68 65 44 61 73 68 52 65 | 63 6f 72 64 2e 61 64 76 |heDashRe|cord.adv|
|00001d40| 61 6e 63 65 20 3d 20 66 | 66 28 34 29 3b 20 0d 09 |ance = f|f(4); ..|
|00001d50| 74 68 65 44 61 73 68 52 | 65 63 6f 72 64 2e 70 68 |theDashR|ecord.ph|
|00001d60| 61 73 65 20 3d 20 30 3b | 20 0d 09 74 68 65 44 61 |ase = 0;| ..theDa|
|00001d70| 73 68 52 65 63 6f 72 64 | 2e 73 63 61 6c 65 20 3d |shRecord|.scale =|
|00001d80| 20 66 66 28 31 29 3b 20 | 0d 09 47 58 53 65 74 53 | ff(1); |..GXSetS|
|00001d90| 68 61 70 65 44 61 73 68 | 28 6e 65 77 53 68 61 70 |hapeDash|(newShap|
|00001da0| 65 2c 20 26 74 68 65 44 | 61 73 68 52 65 63 6f 72 |e, &theD|ashRecor|
|00001db0| 64 29 3b 0d 09 47 58 44 | 69 73 70 6f 73 65 53 68 |d);..GXD|isposeSh|
|00001dc0| 61 70 65 28 64 61 73 68 | 53 68 61 70 65 29 3b 0d |ape(dash|Shape);.|
|00001dd0| 09 0d 09 2f 2f 20 53 65 | 74 20 74 68 65 20 63 6f |...// Se|t the co|
|00001de0| 6c 6f 72 2c 20 70 65 6e | 20 61 6e 64 20 68 69 74 |lor, pen| and hit|
|00001df0| 20 74 65 73 74 0d 09 2f | 2f 20 53 65 74 53 68 61 | test../|/ SetSha|
|00001e00| 70 65 43 6f 6d 6d 6f 6e | 43 6f 6c 6f 72 28 6e 65 |peCommon|Color(ne|
|00001e10| 77 53 68 61 70 65 2c 20 | 6b 53 65 70 61 72 61 74 |wShape, |kSeparat|
|00001e20| 6f 72 43 6f 6c 6f 72 29 | 3b 0d 09 47 58 53 65 74 |orColor)|;..GXSet|
|00001e30| 53 68 61 70 65 50 65 6e | 28 6e 65 77 53 68 61 70 |ShapePen|(newShap|
|00001e40| 65 2c 20 66 66 28 31 29 | 29 3b 0d 09 69 66 28 69 |e, ff(1)|);..if(i|
|00001e50| 73 48 6f 72 69 7a 29 20 | 2f 2f 20 74 75 72 6e 20 |sHoriz) |// turn |
|00001e60| 6f 66 66 20 68 69 74 20 | 74 65 73 74 69 6e 67 20 |off hit |testing |
|00001e70| 66 6f 72 20 68 6f 72 69 | 7a 6f 6e 74 61 6c 20 73 |for hori|zontal s|
|00001e80| 65 70 61 72 61 74 6f 72 | 73 0d 09 09 47 58 53 65 |eparator|s...GXSe|
|00001e90| 74 53 68 61 70 65 48 69 | 74 54 65 73 74 28 6e 65 |tShapeHi|tTest(ne|
|00001ea0| 77 53 68 61 70 65 2c 20 | 67 78 4e 6f 50 61 72 74 |wShape, |gxNoPart|
|00001eb0| 2c 20 66 66 28 30 29 29 | 3b 0d 09 0d 09 72 65 74 |, ff(0))|;....ret|
|00001ec0| 75 72 6e 20 6e 65 77 53 | 68 61 70 65 3b 0d 7d 0d |urn newS|hape;.}.|
|00001ed0| 0d 2f 2f 20 42 75 69 6c | 64 20 61 20 70 69 63 74 |.// Buil|d a pict|
|00001ee0| 75 72 65 20 74 68 61 74 | 20 69 73 20 61 20 72 6f |ure that| is a ro|
|00001ef0| 77 20 6f 66 20 52 73 20 | 61 6e 64 20 4c 73 2c 20 |w of Rs |and Ls, |
|00001f00| 69 6e 20 74 68 65 20 64 | 65 66 61 75 6c 74 20 70 |in the d|efault p|
|00001f10| 6f 73 69 74 69 6f 6e 20 | 28 66 69 72 73 74 20 72 |osition |(first r|
|00001f20| 6f 77 29 0d 67 78 53 68 | 61 70 65 20 4d 61 6b 65 |ow).gxSh|ape Make|
|00001f30| 4a 75 67 67 6c 65 72 53 | 68 61 70 65 28 4a 75 67 |JugglerS|hape(Jug|
|00001f40| 67 6c 65 48 61 6e 64 6c | 65 20 61 4a 75 67 67 6c |gleHandl|e aJuggl|
|00001f50| 65 2c 20 42 6f 6f 6c 65 | 61 6e 20 72 69 67 68 74 |e, Boole|an right|
|00001f60| 46 69 72 73 74 2c 20 73 | 68 6f 72 74 20 6a 75 67 |First, s|hort jug|
|00001f70| 67 6c 65 72 4e 75 6d 62 | 65 72 29 0d 7b 0d 09 73 |glerNumb|er).{..s|
|00001f80| 68 6f 72 74 09 09 6e 75 | 6d 48 61 6e 64 50 61 69 |hort..nu|mHandPai|
|00001f90| 72 73 2c 20 63 6f 75 6e | 74 65 72 3b 0d 09 46 69 |rs, coun|ter;..Fi|
|00001fa0| 78 65 64 09 09 74 77 69 | 63 65 48 47 72 69 64 2c |xed..twi|ceHGrid,|
|00001fb0| 20 72 65 70 65 61 74 44 | 69 73 74 3b 0d 09 67 78 | repeatD|ist;..gx|
|00001fc0| 53 68 61 70 65 09 09 6c | 61 62 65 6c 53 68 61 70 |Shape..l|abelShap|
|00001fd0| 65 2c 20 66 69 72 73 74 | 53 68 61 70 65 2c 20 73 |e, first|Shape, s|
|00001fe0| 65 63 6f 6e 64 53 68 61 | 70 65 2c 20 6e 65 77 50 |econdSha|pe, newP|
|00001ff0| 69 63 74 75 72 65 3b 0d | 09 0d 09 2f 2f 20 4d 61 |icture;.|...// Ma|
|00002000| 6b 65 20 74 68 65 20 6e | 65 77 20 70 69 63 74 75 |ke the n|ew pictu|
|00002010| 72 65 0d 09 6e 65 77 50 | 69 63 74 75 72 65 20 3d |re..newP|icture =|
|00002020| 20 47 58 4e 65 77 53 68 | 61 70 65 28 67 78 50 69 | GXNewSh|ape(gxPi|
|00002030| 63 74 75 72 65 54 79 70 | 65 29 3b 0d 09 4e 69 6c |ctureTyp|e);..Nil|
|00002040| 53 68 61 70 65 52 65 74 | 75 72 6e 4e 69 6c 28 6e |ShapeRet|urnNil(n|
|00002050| 65 77 50 69 63 74 75 72 | 65 29 3b 0d 0d 09 2f 2f |ewPictur|e);...//|
|00002060| 20 53 65 74 20 74 68 65 | 20 75 6e 69 71 75 65 20 | Set the| unique |
|00002070| 69 74 65 6d 73 20 73 68 | 61 70 65 20 61 74 74 72 |items sh|ape attr|
|00002080| 69 62 75 74 65 20 73 6f | 20 61 20 6e 65 77 20 63 |ibute so| a new c|
|00002090| 6f 70 79 20 69 73 20 6d | 61 64 65 20 66 6f 72 20 |opy is m|ade for |
|000020a0| 65 61 63 68 20 68 61 6e | 64 0d 09 47 58 53 65 74 |each han|d..GXSet|
|000020b0| 53 68 61 70 65 41 74 74 | 72 69 62 75 74 65 73 28 |ShapeAtt|ributes(|
|000020c0| 6e 65 77 50 69 63 74 75 | 72 65 2c 0d 09 09 09 09 |newPictu|re,.....|
|000020d0| 09 09 09 47 58 47 65 74 | 53 68 61 70 65 41 74 74 |...GXGet|ShapeAtt|
|000020e0| 72 69 62 75 74 65 73 28 | 6e 65 77 50 69 63 74 75 |ributes(|newPictu|
|000020f0| 72 65 29 20 7c 20 67 78 | 55 6e 69 71 75 65 49 74 |re) | gx|UniqueIt|
|00002100| 65 6d 73 53 68 61 70 65 | 29 3b 0d 09 0d 09 2f 2f |emsShape|);....//|
|00002110| 20 6d 61 6b 65 20 61 6e | 64 20 61 64 64 20 74 68 | make an|d add th|
|00002120| 65 20 6c 61 62 65 6c 20 | 73 68 61 70 65 0d 09 6c |e label |shape..l|
|00002130| 61 62 65 6c 53 68 61 70 | 65 20 3d 20 4d 61 6b 65 |abelShap|e = Make|
|00002140| 4c 61 62 65 6c 53 68 61 | 70 65 28 6a 75 67 67 6c |LabelSha|pe(juggl|
|00002150| 65 72 4e 75 6d 62 65 72 | 29 3b 0d 09 4e 69 6c 53 |erNumber|);..NilS|
|00002160| 68 61 70 65 52 65 74 75 | 72 6e 4e 69 6c 28 6c 61 |hapeRetu|rnNil(la|
|00002170| 62 65 6c 53 68 61 70 65 | 29 3b 0d 09 4d 6f 76 65 |belShape|);..Move|
|00002180| 53 68 61 70 65 43 65 6e | 74 65 72 54 6f 28 6c 61 |ShapeCen|terTo(la|
|00002190| 62 65 6c 53 68 61 70 65 | 2c 20 2d 28 2a 61 4a 75 |belShape|, -(*aJu|
|000021a0| 67 67 6c 65 29 2d 3e 67 | 72 69 64 50 74 2e 78 20 |ggle)->g|ridPt.x |
|000021b0| 2d 20 66 66 28 32 29 2c | 20 66 66 28 30 29 29 3b |- ff(2),| ff(0));|
|000021c0| 0d 09 41 64 64 54 6f 50 | 69 63 74 75 72 65 28 6e |..AddToP|icture(n|
|000021d0| 65 77 50 69 63 74 75 72 | 65 2c 20 6c 61 62 65 6c |ewPictur|e, label|
|000021e0| 53 68 61 70 65 2c 20 6e | 69 6c 2c 20 6e 69 6c 2c |Shape, n|il, nil,|
|000021f0| 20 6e 69 6c 29 3b 0d 09 | 47 58 44 69 73 70 6f 73 | nil);..|GXDispos|
|00002200| 65 53 68 61 70 65 28 6c | 61 62 65 6c 53 68 61 70 |eShape(l|abelShap|
|00002210| 65 29 3b 0d 09 6c 61 62 | 65 6c 53 68 61 70 65 20 |e);..lab|elShape |
|00002220| 3d 20 6e 69 6c 3b 0d 09 | 20 0d 09 2f 2f 20 66 69 |= nil;..| ..// fi|
|00002230| 67 75 72 65 20 6f 75 74 | 20 74 68 65 20 6e 75 6d |gure out| the num|
|00002240| 62 65 72 20 6f 66 20 70 | 61 69 72 73 20 6f 66 20 |ber of p|airs of |
|00002250| 68 61 6e 64 73 20 61 6e | 64 20 74 68 65 20 64 69 |hands an|d the di|
|00002260| 73 74 61 6e 63 65 20 77 | 65 20 6e 65 65 64 20 74 |stance w|e need t|
|00002270| 6f 20 6d 6f 76 65 20 74 | 68 65 6d 0d 09 6e 75 6d |o move t|hem..num|
|00002280| 48 61 6e 64 50 61 69 72 | 73 20 3d 20 28 28 2a 61 |HandPair|s = ((*a|
|00002290| 4a 75 67 67 6c 65 29 2d | 3e 6e 75 6d 43 6f 75 6e |Juggle)-|>numCoun|
|000022a0| 74 73 20 2b 20 31 29 20 | 2f 20 32 3b 0d 09 74 77 |ts + 1) |/ 2;..tw|
|000022b0| 69 63 65 48 47 72 69 64 | 20 3d 20 28 2a 61 4a 75 |iceHGrid| = (*aJu|
|000022c0| 67 67 6c 65 29 2d 3e 67 | 72 69 64 50 74 2e 78 20 |ggle)->g|ridPt.x |
|000022d0| 2a 20 32 3b 0d 09 72 65 | 70 65 61 74 44 69 73 74 |* 2;..re|peatDist|
|000022e0| 20 3d 20 28 2a 61 4a 75 | 67 67 6c 65 29 2d 3e 67 | = (*aJu|ggle)->g|
|000022f0| 72 69 64 50 74 2e 78 20 | 2a 20 28 2a 61 4a 75 67 |ridPt.x |* (*aJug|
|00002300| 67 6c 65 29 2d 3e 6e 75 | 6d 43 6f 75 6e 74 73 3b |gle)->nu|mCounts;|
|00002310| 20 0d 09 0d 09 2f 2f 20 | 4d 61 6b 65 20 74 68 65 | ....// |Make the|
|00002320| 20 73 6f 6c 69 64 20 68 | 61 6e 64 20 73 68 61 70 | solid h|and shap|
|00002330| 65 73 0d 09 66 69 72 73 | 74 53 68 61 70 65 20 3d |es..firs|tShape =|
|00002340| 20 4d 61 6b 65 48 61 6e | 64 53 68 61 70 65 28 72 | MakeHan|dShape(r|
|00002350| 69 67 68 74 46 69 72 73 | 74 2c 20 66 61 6c 73 65 |ightFirs|t, false|
|00002360| 29 3b 0d 09 4e 69 6c 53 | 68 61 70 65 52 65 74 75 |);..NilS|hapeRetu|
|00002370| 72 6e 4e 69 6c 28 66 69 | 72 73 74 53 68 61 70 65 |rnNil(fi|rstShape|
|00002380| 29 3b 0d 09 4d 6f 76 65 | 53 68 61 70 65 43 65 6e |);..Move|ShapeCen|
|00002390| 74 65 72 54 6f 28 66 69 | 72 73 74 53 68 61 70 65 |terTo(fi|rstShape|
|000023a0| 2c 20 66 66 28 30 29 2c | 20 66 66 28 30 29 29 3b |, ff(0),| ff(0));|
|000023b0| 0d 09 73 65 63 6f 6e 64 | 53 68 61 70 65 20 3d 20 |..second|Shape = |
|000023c0| 4d 61 6b 65 48 61 6e 64 | 53 68 61 70 65 28 21 72 |MakeHand|Shape(!r|
|000023d0| 69 67 68 74 46 69 72 73 | 74 2c 20 66 61 6c 73 65 |ightFirs|t, false|
|000023e0| 29 3b 0d 09 4e 69 6c 53 | 68 61 70 65 52 65 74 75 |);..NilS|hapeRetu|
|000023f0| 72 6e 4e 69 6c 28 73 65 | 63 6f 6e 64 53 68 61 70 |rnNil(se|condShap|
|00002400| 65 29 3b 0d 09 4d 6f 76 | 65 53 68 61 70 65 43 65 |e);..Mov|eShapeCe|
|00002410| 6e 74 65 72 54 6f 28 73 | 65 63 6f 6e 64 53 68 61 |nterTo(s|econdSha|
|00002420| 70 65 2c 20 28 2a 61 4a | 75 67 67 6c 65 29 2d 3e |pe, (*aJ|uggle)->|
|00002430| 67 72 69 64 50 74 2e 78 | 2c 20 66 66 28 30 29 29 |gridPt.x|, ff(0))|
|00002440| 3b 0d 09 0d 09 2f 2f 20 | 41 64 64 20 74 68 65 20 |;....// |Add the |
|00002450| 73 6f 6c 69 64 20 68 61 | 6e 64 20 73 68 61 70 65 |solid ha|nd shape|
|00002460| 73 2c 20 61 6c 6c 20 69 | 6e 20 61 20 72 6f 77 0d |s, all i|n a row.|
|00002470| 09 63 6f 75 6e 74 65 72 | 20 3d 20 6e 75 6d 48 61 |.counter| = numHa|
|00002480| 6e 64 50 61 69 72 73 3b | 0d 09 77 68 69 6c 65 28 |ndPairs;|..while(|
|00002490| 63 6f 75 6e 74 65 72 2d | 2d 20 3e 20 30 29 0d 09 |counter-|- > 0)..|
|000024a0| 7b 0d 09 09 41 64 64 54 | 6f 50 69 63 74 75 72 65 |{...AddT|oPicture|
|000024b0| 28 6e 65 77 50 69 63 74 | 75 72 65 2c 20 66 69 72 |(newPict|ure, fir|
|000024c0| 73 74 53 68 61 70 65 2c | 20 6e 69 6c 2c 20 6e 69 |stShape,| nil, ni|
|000024d0| 6c 2c 20 6e 69 6c 29 3b | 0d 09 09 47 58 4d 6f 76 |l, nil);|...GXMov|
|000024e0| 65 53 68 61 70 65 28 66 | 69 72 73 74 53 68 61 70 |eShape(f|irstShap|
|000024f0| 65 2c 20 74 77 69 63 65 | 48 47 72 69 64 2c 20 30 |e, twice|HGrid, 0|
|00002500| 29 3b 0d 09 09 41 64 64 | 54 6f 50 69 63 74 75 72 |);...Add|ToPictur|
|00002510| 65 28 6e 65 77 50 69 63 | 74 75 72 65 2c 20 73 65 |e(newPic|ture, se|
|00002520| 63 6f 6e 64 53 68 61 70 | 65 2c 20 6e 69 6c 2c 20 |condShap|e, nil, |
|00002530| 6e 69 6c 2c 20 6e 69 6c | 29 3b 0d 09 09 47 58 4d |nil, nil|);...GXM|
|00002540| 6f 76 65 53 68 61 70 65 | 28 73 65 63 6f 6e 64 53 |oveShape|(secondS|
|00002550| 68 61 70 65 2c 20 74 77 | 69 63 65 48 47 72 69 64 |hape, tw|iceHGrid|
|00002560| 2c 20 30 29 3b 0d 09 7d | 0d 09 0d 09 2f 2f 20 43 |, 0);..}|....// C|
|00002570| 6c 65 61 6e 20 75 70 0d | 09 47 58 44 69 73 70 6f |lean up.|.GXDispo|
|00002580| 73 65 53 68 61 70 65 28 | 66 69 72 73 74 53 68 61 |seShape(|firstSha|
|00002590| 70 65 29 3b 0d 09 47 58 | 44 69 73 70 6f 73 65 53 |pe);..GX|DisposeS|
|000025a0| 68 61 70 65 28 73 65 63 | 6f 6e 64 53 68 61 70 65 |hape(sec|ondShape|
|000025b0| 29 3b 0d 09 0d 09 2f 2f | 20 4d 61 6b 65 20 74 68 |);....//| Make th|
|000025c0| 65 20 66 61 64 65 64 20 | 68 61 6e 64 20 73 68 61 |e faded |hand sha|
|000025d0| 70 65 73 0d 09 66 69 72 | 73 74 53 68 61 70 65 20 |pes..fir|stShape |
|000025e0| 3d 20 4d 61 6b 65 48 61 | 6e 64 53 68 61 70 65 28 |= MakeHa|ndShape(|
|000025f0| 72 69 67 68 74 46 69 72 | 73 74 2c 20 74 72 75 65 |rightFir|st, true|
|00002600| 29 3b 0d 09 4e 69 6c 53 | 68 61 70 65 52 65 74 75 |);..NilS|hapeRetu|
|00002610| 72 6e 4e 69 6c 28 66 69 | 72 73 74 53 68 61 70 65 |rnNil(fi|rstShape|
|00002620| 29 3b 0d 09 4d 6f 76 65 | 53 68 61 70 65 43 65 6e |);..Move|ShapeCen|
|00002630| 74 65 72 54 6f 28 66 69 | 72 73 74 53 68 61 70 65 |terTo(fi|rstShape|
|00002640| 2c 20 72 65 70 65 61 74 | 44 69 73 74 2c 20 66 66 |, repeat|Dist, ff|
|00002650| 28 30 29 29 3b 0d 09 73 | 65 63 6f 6e 64 53 68 61 |(0));..s|econdSha|
|00002660| 70 65 20 3d 20 4d 61 6b | 65 48 61 6e 64 53 68 61 |pe = Mak|eHandSha|
|00002670| 70 65 28 21 72 69 67 68 | 74 46 69 72 73 74 2c 20 |pe(!righ|tFirst, |
|00002680| 74 72 75 65 29 3b 0d 09 | 4e 69 6c 53 68 61 70 65 |true);..|NilShape|
|00002690| 52 65 74 75 72 6e 4e 69 | 6c 28 73 65 63 6f 6e 64 |ReturnNi|l(second|
|000026a0| 53 68 61 70 65 29 3b 0d | 09 4d 6f 76 65 53 68 61 |Shape);.|.MoveSha|
|000026b0| 70 65 43 65 6e 74 65 72 | 54 6f 28 73 65 63 6f 6e |peCenter|To(secon|
|000026c0| 64 53 68 61 70 65 2c 20 | 72 65 70 65 61 74 44 69 |dShape, |repeatDi|
|000026d0| 73 74 20 2b 20 28 2a 61 | 4a 75 67 67 6c 65 29 2d |st + (*a|Juggle)-|
|000026e0| 3e 67 72 69 64 50 74 2e | 78 2c 20 66 66 28 30 29 |>gridPt.|x, ff(0)|
|000026f0| 29 3b 0d 09 0d 09 2f 2f | 20 41 64 64 20 74 68 65 |);....//| Add the|
|00002700| 20 66 61 64 65 64 20 68 | 61 6e 64 20 73 68 61 70 | faded h|and shap|
|00002710| 65 73 2c 20 61 6c 6c 20 | 69 6e 20 61 20 72 6f 77 |es, all |in a row|
|00002720| 0d 09 63 6f 75 6e 74 65 | 72 20 3d 20 6e 75 6d 48 |..counte|r = numH|
|00002730| 61 6e 64 50 61 69 72 73 | 3b 0d 09 77 68 69 6c 65 |andPairs|;..while|
|00002740| 28 63 6f 75 6e 74 65 72 | 2d 2d 20 3e 20 30 29 0d |(counter|-- > 0).|
|00002750| 09 7b 0d 09 09 41 64 64 | 54 6f 50 69 63 74 75 72 |.{...Add|ToPictur|
|00002760| 65 28 6e 65 77 50 69 63 | 74 75 72 65 2c 20 66 69 |e(newPic|ture, fi|
|00002770| 72 73 74 53 68 61 70 65 | 2c 20 6e 69 6c 2c 20 6e |rstShape|, nil, n|
|00002780| 69 6c 2c 20 6e 69 6c 29 | 3b 0d 09 09 47 58 4d 6f |il, nil)|;...GXMo|
|00002790| 76 65 53 68 61 70 65 28 | 66 69 72 73 74 53 68 61 |veShape(|firstSha|
|000027a0| 70 65 2c 20 74 77 69 63 | 65 48 47 72 69 64 2c 20 |pe, twic|eHGrid, |
|000027b0| 30 29 3b 0d 09 09 41 64 | 64 54 6f 50 69 63 74 75 |0);...Ad|dToPictu|
|000027c0| 72 65 28 6e 65 77 50 69 | 63 74 75 72 65 2c 20 73 |re(newPi|cture, s|
|000027d0| 65 63 6f 6e 64 53 68 61 | 70 65 2c 20 6e 69 6c 2c |econdSha|pe, nil,|
|000027e0| 20 6e 69 6c 2c 20 6e 69 | 6c 29 3b 0d 09 09 47 58 | nil, ni|l);...GX|
|000027f0| 4d 6f 76 65 53 68 61 70 | 65 28 73 65 63 6f 6e 64 |MoveShap|e(second|
|00002800| 53 68 61 70 65 2c 20 74 | 77 69 63 65 48 47 72 69 |Shape, t|wiceHGri|
|00002810| 64 2c 20 30 29 3b 0d 09 | 7d 0d 09 0d 09 2f 2f 20 |d, 0);..|}....// |
|00002820| 43 6c 65 61 6e 20 75 70 | 20 61 67 61 69 6e 0d 09 |Clean up| again..|
|00002830| 47 58 44 69 73 70 6f 73 | 65 53 68 61 70 65 28 66 |GXDispos|eShape(f|
|00002840| 69 72 73 74 53 68 61 70 | 65 29 3b 0d 09 47 58 44 |irstShap|e);..GXD|
|00002850| 69 73 70 6f 73 65 53 68 | 61 70 65 28 73 65 63 6f |isposeSh|ape(seco|
|00002860| 6e 64 53 68 61 70 65 29 | 3b 0d 09 0d 09 72 65 74 |ndShape)|;....ret|
|00002870| 75 72 6e 20 6e 65 77 50 | 69 63 74 75 72 65 3b 0d |urn newP|icture;.|
|00002880| 7d 0d 0d 2f 2f 20 53 65 | 74 73 20 75 70 20 61 20 |}..// Se|ts up a |
|00002890| 73 70 65 63 69 61 6c 20 | 73 68 61 70 65 20 66 6f |special |shape fo|
|000028a0| 72 20 70 72 69 6e 74 69 | 6e 67 2c 20 77 69 74 68 |r printi|ng, with|
|000028b0| 20 6e 6f 20 77 65 69 72 | 64 20 63 6f 6c 6f 72 73 | no weir|d colors|
|000028c0| 20 6f 72 20 6d 6f 64 65 | 73 2c 0d 2f 2f 20 6a 75 | or mode|s,.// ju|
|000028d0| 73 74 20 62 6c 61 63 6b | 20 61 6e 64 20 77 68 69 |st black| and whi|
|000028e0| 74 65 20 63 6f 70 79 20 | 6d 6f 64 65 0d 2f 2f 20 |te copy |mode.// |
|000028f0| 21 21 21 20 53 68 6f 75 | 6c 64 20 61 64 64 20 69 |!!! Shou|ld add i|
|00002900| 6e 20 74 68 65 20 66 61 | 64 65 64 20 74 68 72 6f |n the fa|ded thro|
|00002910| 77 73 2c 20 69 6e 20 67 | 72 61 79 2c 20 61 6e 64 |ws, in g|ray, and|
|00002920| 20 70 72 69 6e 74 20 74 | 68 65 20 74 69 74 6c 65 | print t|he title|
|00002930| 2c 20 74 6f 6f 2e 0d 67 | 78 53 68 61 70 65 20 4d |, too..g|xShape M|
|00002940| 61 6b 65 50 72 69 6e 74 | 69 6e 67 53 68 61 70 65 |akePrint|ingShape|
|00002950| 28 4a 75 67 67 6c 65 48 | 61 6e 64 6c 65 20 61 4a |(JuggleH|andle aJ|
|00002960| 75 67 67 6c 65 29 0d 7b | 0d 09 67 78 50 6f 69 6e |uggle).{|..gxPoin|
|00002970| 74 09 09 09 67 72 69 64 | 3b 0d 09 67 78 53 68 61 |t...grid|;..gxSha|
|00002980| 70 65 09 09 09 70 61 67 | 65 53 68 61 70 65 3b 0d |pe...pag|eShape;.|
|00002990| 09 67 78 49 6e 6b 09 09 | 09 64 65 66 61 75 6c 74 |.gxInk..|.default|
|000029a0| 49 6e 6b 3b 0d 09 0d 09 | 2f 2f 20 46 69 72 73 74 |Ink;....|// First|
|000029b0| 20 6d 61 6b 65 20 61 20 | 63 6f 70 79 20 6f 66 20 | make a |copy of |
|000029c0| 74 68 65 20 73 68 61 70 | 65 0d 09 70 61 67 65 53 |the shap|e..pageS|
|000029d0| 68 61 70 65 20 3d 20 47 | 58 43 6f 70 79 44 65 65 |hape = G|XCopyDee|
|000029e0| 70 54 6f 53 68 61 70 65 | 28 6e 69 6c 2c 20 28 2a |pToShape|(nil, (*|
|000029f0| 61 4a 75 67 67 6c 65 29 | 2d 3e 64 6f 63 50 61 67 |aJuggle)|->docPag|
|00002a00| 65 29 3b 0d 09 69 66 28 | 70 61 67 65 53 68 61 70 |e);..if(|pageShap|
|00002a10| 65 20 21 3d 20 6e 69 6c | 29 0d 09 7b 0d 09 09 2f |e != nil|)..{.../|
|00002a20| 2f 20 4d 6f 76 65 20 69 | 74 20 6f 76 65 72 20 74 |/ Move i|t over t|
|00002a30| 6f 20 61 63 63 6f 75 6e | 74 20 66 6f 72 20 74 68 |o accoun|t for th|
|00002a40| 65 20 6d 61 70 70 69 6e | 67 20 6f 66 66 73 65 74 |e mappin|g offset|
|00002a50| 20 6f 66 20 74 68 65 20 | 63 6f 6e 74 65 6e 74 20 | of the |content |
|00002a60| 70 6f 72 74 0d 09 09 2f | 2f 28 57 65 20 63 61 6e |port.../|/(We can|
|00002a70| 27 74 20 67 65 74 20 69 | 74 20 64 69 72 65 63 74 |'t get i|t direct|
|00002a80| 6c 79 20 66 72 6f 6d 20 | 74 68 65 20 70 6f 72 74 |ly from |the port|
|00002a90| 2c 20 61 73 20 69 74 20 | 6d 69 67 68 74 20 62 65 |, as it |might be|
|00002aa0| 20 73 63 72 6f 6c 6c 65 | 64 2c 20 61 6e 64 0d 09 | scrolle|d, and..|
|00002ab0| 09 2f 2f 20 73 63 72 6f | 6c 6c 69 6e 67 20 63 68 |.// scro|lling ch|
|00002ac0| 61 6e 67 65 73 20 74 68 | 65 20 6d 61 70 70 69 6e |anges th|e mappin|
|00002ad0| 67 29 0d 09 09 67 72 69 | 64 20 3d 20 28 2a 61 4a |g)...gri|d = (*aJ|
|00002ae0| 75 67 67 6c 65 29 2d 3e | 67 72 69 64 50 74 3b 0d |uggle)->|gridPt;.|
|00002af0| 09 09 47 58 4d 6f 76 65 | 53 68 61 70 65 28 70 61 |..GXMove|Shape(pa|
|00002b00| 67 65 53 68 61 70 65 2c | 20 67 72 69 64 2e 78 20 |geShape,| grid.x |
|00002b10| 2b 20 28 67 72 69 64 2e | 78 20 2f 20 32 29 2c 20 |+ (grid.|x / 2), |
|00002b20| 09 2f 2f 20 31 20 61 6e | 64 20 61 20 68 61 6c 66 |.// 1 an|d a half|
|00002b30| 20 74 69 6d 65 73 20 78 | 0d 09 09 09 09 09 09 67 | times x|.......g|
|00002b40| 72 69 64 2e 79 20 2f 20 | 32 29 3b 09 09 09 09 09 |rid.y / |2);.....|
|00002b50| 2f 2f 20 68 61 6c 66 20 | 6f 66 20 79 0d 09 09 0d |// half |of y....|
|00002b60| 09 09 2f 2f 20 53 65 74 | 20 61 6c 6c 20 73 68 61 |..// Set| all sha|
|00002b70| 70 65 73 20 74 6f 20 64 | 72 61 77 20 69 6e 20 62 |pes to d|raw in b|
|00002b80| 6c 61 63 6b 2c 20 63 6f | 70 79 20 6d 6f 64 65 0d |lack, co|py mode.|
|00002b90| 09 09 64 65 66 61 75 6c | 74 49 6e 6b 20 3d 20 47 |..defaul|tInk = G|
|00002ba0| 58 4e 65 77 49 6e 6b 28 | 29 3b 0d 09 09 53 65 74 |XNewInk(|);...Set|
|00002bb0| 44 65 65 70 53 68 61 70 | 65 49 6e 6b 28 70 61 67 |DeepShap|eInk(pag|
|00002bc0| 65 53 68 61 70 65 2c 20 | 64 65 66 61 75 6c 74 49 |eShape, |defaultI|
|00002bd0| 6e 6b 29 3b 0d 09 09 47 | 58 44 69 73 70 6f 73 65 |nk);...G|XDispose|
|00002be0| 49 6e 6b 28 64 65 66 61 | 75 6c 74 49 6e 6b 29 3b |Ink(defa|ultInk);|
|00002bf0| 0d 09 09 0d 09 09 2f 2f | 20 41 64 64 20 69 6e 20 |......//| Add in |
|00002c00| 74 68 65 20 66 61 64 65 | 64 20 74 68 72 6f 77 73 |the fade|d throws|
|00002c10| 0d 09 7d 0d 09 72 65 74 | 75 72 6e 20 70 61 67 65 |..}..ret|urn page|
|00002c20| 53 68 61 70 65 3b 0d 7d | 0d 0d 2f 2f 20 21 21 21 |Shape;.}|..// !!!|
|00002c30| 20 4e 65 65 64 73 20 65 | 72 72 6f 72 20 63 68 65 | Needs e|rror che|
|00002c40| 63 6b 69 6e 67 0d 4f 53 | 45 72 72 20 53 65 74 55 |cking.OS|Err SetU|
|00002c50| 70 4a 75 67 67 6c 65 56 | 69 65 77 50 6f 72 74 73 |pJuggleV|iewPorts|
|00002c60| 28 57 69 6e 64 6f 77 50 | 74 72 20 77 69 6e 64 6f |(WindowP|tr windo|
|00002c70| 77 2c 20 4a 75 67 67 6c | 65 48 61 6e 64 6c 65 20 |w, Juggl|eHandle |
|00002c80| 61 4a 75 67 67 6c 65 29 | 0d 7b 0d 09 67 78 56 69 |aJuggle)|.{..gxVi|
|00002c90| 65 77 50 6f 72 74 09 09 | 64 6f 63 50 6f 72 74 2c |ewPort..|docPort,|
|00002ca0| 20 6e 65 77 50 6f 72 74 | 3b 0d 09 67 78 56 69 65 | newPort|;..gxVie|
|00002cb0| 77 47 72 6f 75 70 09 09 | 67 72 6f 75 70 3b 0d 09 |wGroup..|group;..|
|00002cc0| 67 78 4d 61 70 70 69 6e | 67 09 09 70 6f 72 74 4d |gxMappin|g..portM|
|00002cd0| 61 70 70 69 6e 67 3b 0d | 09 67 78 53 68 61 70 65 |apping;.|.gxShape|
|00002ce0| 09 09 09 63 6c 69 70 53 | 68 61 70 65 3b 0d 09 67 |...clipS|hape;..g|
|00002cf0| 78 52 65 63 74 61 6e 67 | 6c 65 09 09 63 6c 69 70 |xRectang|le..clip|
|00002d00| 52 65 63 74 3b 0d 09 67 | 78 50 6f 69 6e 74 09 09 |Rect;..g|xPoint..|
|00002d10| 09 67 72 69 64 20 3d 20 | 28 2a 61 4a 75 67 67 6c |.grid = |(*aJuggl|
|00002d20| 65 29 2d 3e 67 72 69 64 | 50 74 3b 0d 09 0d 09 2f |e)->grid|Pt;..../|
|00002d30| 2f 20 47 65 74 20 74 68 | 65 20 63 6f 6e 74 65 6e |/ Get th|e conten|
|00002d40| 74 20 70 6f 72 74 20 61 | 6e 64 20 73 65 74 20 69 |t port a|nd set i|
|00002d50| 74 73 20 6d 61 70 70 69 | 6e 67 0d 09 64 6f 63 50 |ts mappi|ng..docP|
|00002d60| 6f 72 74 20 3d 20 28 2a | 61 4a 75 67 67 6c 65 29 |ort = (*|aJuggle)|
|00002d70| 2d 3e 64 6f 63 50 6f 72 | 74 3b 0d 09 47 58 47 65 |->docPor|t;..GXGe|
|00002d80| 74 56 69 65 77 50 6f 72 | 74 4d 61 70 70 69 6e 67 |tViewPor|tMapping|
|00002d90| 28 64 6f 63 50 6f 72 74 | 2c 20 26 70 6f 72 74 4d |(docPort|, &portM|
|00002da0| 61 70 70 69 6e 67 29 3b | 0d 09 4d 6f 76 65 4d 61 |apping);|..MoveMa|
|00002db0| 70 70 69 6e 67 28 26 70 | 6f 72 74 4d 61 70 70 69 |pping(&p|ortMappi|
|00002dc0| 6e 67 2c 20 0d 09 09 09 | 09 09 67 72 69 64 2e 78 |ng, ....|..grid.x|
|00002dd0| 20 2b 20 28 67 72 69 64 | 2e 78 20 2f 20 32 29 2c | + (grid|.x / 2),|
|00002de0| 20 2f 2f 20 31 20 61 6e | 64 20 61 20 68 61 6c 66 | // 1 an|d a half|
|00002df0| 20 74 69 6d 65 73 20 78 | 0d 09 09 09 09 09 67 72 | times x|......gr|
|00002e00| 69 64 2e 79 20 2f 20 32 | 29 3b 0d 09 47 58 53 65 |id.y / 2|);..GXSe|
|00002e10| 74 56 69 65 77 50 6f 72 | 74 4d 61 70 70 69 6e 67 |tViewPor|tMapping|
|00002e20| 28 64 6f 63 50 6f 72 74 | 2c 20 26 70 6f 72 74 4d |(docPort|, &portM|
|00002e30| 61 70 70 69 6e 67 29 3b | 0d 09 0d 09 2f 2f 20 53 |apping);|....// S|
|00002e40| 65 74 20 75 70 20 72 65 | 63 74 61 6e 67 6c 65 20 |et up re|ctangle |
|00002e50| 74 6f 20 65 6e 63 6c 6f | 73 65 20 74 68 65 20 72 |to enclo|se the r|
|00002e60| 65 70 65 61 74 61 62 6c | 65 20 75 6e 69 74 20 6f |epeatabl|e unit o|
|00002e70| 66 20 74 68 65 20 6a 75 | 67 67 6c 65 0d 09 2f 2f |f the ju|ggle..//|
|00002e80| 20 28 69 6e 20 64 6f 63 | 50 6f 72 74 20 73 70 61 | (in doc|Port spa|
|00002e90| 63 65 29 0d 09 63 6c 69 | 70 52 65 63 74 2e 6c 65 |ce)..cli|pRect.le|
|00002ea0| 66 74 20 3d 20 2d 28 67 | 72 69 64 2e 78 20 2f 20 |ft = -(g|rid.x / |
|00002eb0| 32 29 3b 0d 09 63 6c 69 | 70 52 65 63 74 2e 74 6f |2);..cli|pRect.to|
|00002ec0| 70 20 3d 20 2d 28 67 72 | 69 64 2e 79 20 2f 20 32 |p = -(gr|id.y / 2|
|00002ed0| 29 3b 0d 09 63 6c 69 70 | 52 65 63 74 2e 72 69 67 |);..clip|Rect.rig|
|00002ee0| 68 74 20 3d 20 28 67 72 | 69 64 2e 78 20 2a 20 28 |ht = (gr|id.x * (|
|00002ef0| 2a 61 4a 75 67 67 6c 65 | 29 2d 3e 6e 75 6d 43 6f |*aJuggle|)->numCo|
|00002f00| 75 6e 74 73 29 20 2d 20 | 28 67 72 69 64 2e 78 20 |unts) - |(grid.x |
|00002f10| 2f 20 32 29 3b 0d 09 63 | 6c 69 70 52 65 63 74 2e |/ 2);..c|lipRect.|
|00002f20| 62 6f 74 74 6f 6d 20 3d | 20 66 66 28 33 32 30 30 |bottom =| ff(3200|
|00002f30| 30 29 3b 20 2f 2f 20 6e | 6f 20 63 6c 69 70 20 6f |0); // n|o clip o|
|00002f40| 6e 20 74 68 65 20 62 6f | 74 74 6f 6d 0d 09 63 6c |n the bo|ttom..cl|
|00002f50| 69 70 53 68 61 70 65 20 | 3d 20 47 58 4e 65 77 52 |ipShape |= GXNewR|
|00002f60| 65 63 74 61 6e 67 6c 65 | 28 26 63 6c 69 70 52 65 |ectangle|(&clipRe|
|00002f70| 63 74 29 3b 0d 09 0d 09 | 2f 2f 20 47 65 74 20 74 |ct);....|// Get t|
|00002f80| 68 65 20 76 69 65 77 20 | 67 72 6f 75 70 20 66 6f |he view |group fo|
|00002f90| 72 20 74 68 65 20 77 69 | 6e 64 6f 77 0d 09 67 72 |r the wi|ndow..gr|
|00002fa0| 6f 75 70 20 3d 20 47 58 | 47 65 74 56 69 65 77 50 |oup = GX|GetViewP|
|00002fb0| 6f 72 74 56 69 65 77 47 | 72 6f 75 70 28 64 6f 63 |ortViewG|roup(doc|
|00002fc0| 50 6f 72 74 29 3b 0d 09 | 0d 09 2f 2f 20 4d 61 6b |Port);..|..// Mak|
|00002fd0| 65 20 74 68 65 20 62 65 | 66 6f 72 65 20 70 6f 72 |e the be|fore por|
|00002fe0| 74 20 61 6e 64 20 73 61 | 76 65 20 69 6e 20 74 68 |t and sa|ve in th|
|00002ff0| 65 20 6a 75 67 67 6c 65 | 0d 09 6e 65 77 50 6f 72 |e juggle|..newPor|
|00003000| 74 20 3d 20 47 58 4e 65 | 77 56 69 65 77 50 6f 72 |t = GXNe|wViewPor|
|00003010| 74 28 67 72 6f 75 70 29 | 3b 0d 09 47 58 53 65 74 |t(group)|;..GXSet|
|00003020| 56 69 65 77 50 6f 72 74 | 43 6c 69 70 28 6e 65 77 |ViewPort|Clip(new|
|00003030| 50 6f 72 74 2c 20 63 6c | 69 70 53 68 61 70 65 29 |Port, cl|ipShape)|
|00003040| 3b 0d 09 52 65 73 65 74 | 4d 61 70 70 69 6e 67 28 |;..Reset|Mapping(|
|00003050| 26 70 6f 72 74 4d 61 70 | 70 69 6e 67 29 3b 0d 09 |&portMap|ping);..|
|00003060| 4d 6f 76 65 4d 61 70 70 | 69 6e 67 28 26 70 6f 72 |MoveMapp|ing(&por|
|00003070| 74 4d 61 70 70 69 6e 67 | 2c 20 0d 09 09 09 09 09 |tMapping|, ......|
|00003080| 2d 28 67 72 69 64 2e 78 | 20 2a 20 28 2a 61 4a 75 |-(grid.x| * (*aJu|
|00003090| 67 67 6c 65 29 2d 3e 6e | 75 6d 43 6f 75 6e 74 73 |ggle)->n|umCounts|
|000030a0| 29 2c 20 2f 2f 20 73 68 | 69 66 74 20 6c 65 66 74 |), // sh|ift left|
|000030b0| 20 6f 6e 65 20 6a 75 67 | 67 6c 65 0d 09 09 09 09 | one jug|gle.....|
|000030c0| 09 30 29 3b 0d 09 47 58 | 53 65 74 56 69 65 77 50 |.0);..GX|SetViewP|
|000030d0| 6f 72 74 4d 61 70 70 69 | 6e 67 28 6e 65 77 50 6f |ortMappi|ng(newPo|
|000030e0| 72 74 2c 20 26 70 6f 72 | 74 4d 61 70 70 69 6e 67 |rt, &por|tMapping|
|000030f0| 29 3b 0d 09 47 58 53 65 | 74 56 69 65 77 50 6f 72 |);..GXSe|tViewPor|
|00003100| 74 50 61 72 65 6e 74 28 | 6e 65 77 50 6f 72 74 2c |tParent(|newPort,|
|00003110| 20 64 6f 63 50 6f 72 74 | 29 3b 0d 09 28 2a 61 4a | docPort|);..(*aJ|
|00003120| 75 67 67 6c 65 29 2d 3e | 62 65 66 6f 72 65 50 6f |uggle)->|beforePo|
|00003130| 72 74 20 3d 20 6e 65 77 | 50 6f 72 74 3b 0d 09 0d |rt = new|Port;...|
|00003140| 09 2f 2f 20 4d 61 6b 65 | 20 74 68 65 20 61 66 74 |.// Make| the aft|
|00003150| 65 72 20 70 6f 72 74 20 | 61 6e 64 20 73 61 76 65 |er port |and save|
|00003160| 20 69 6e 20 74 68 65 20 | 6a 75 67 67 6c 65 0d 09 | in the |juggle..|
|00003170| 6e 65 77 50 6f 72 74 20 | 3d 20 47 58 4e 65 77 56 |newPort |= GXNewV|
|00003180| 69 65 77 50 6f 72 74 28 | 67 72 6f 75 70 29 3b 0d |iewPort(|group);.|
|00003190| 09 47 58 4d 6f 76 65 53 | 68 61 70 65 28 63 6c 69 |.GXMoveS|hape(cli|
|000031a0| 70 53 68 61 70 65 2c 20 | 67 72 69 64 2e 78 20 2a |pShape, |grid.x *|
|000031b0| 20 28 2a 61 4a 75 67 67 | 6c 65 29 2d 3e 6e 75 6d | (*aJugg|le)->num|
|000031c0| 43 6f 75 6e 74 73 2c 20 | 30 29 3b 0d 09 47 58 53 |Counts, |0);..GXS|
|000031d0| 65 74 56 69 65 77 50 6f | 72 74 43 6c 69 70 28 6e |etViewPo|rtClip(n|
|000031e0| 65 77 50 6f 72 74 2c 20 | 63 6c 69 70 53 68 61 70 |ewPort, |clipShap|
|000031f0| 65 29 3b 0d 09 52 65 73 | 65 74 4d 61 70 70 69 6e |e);..Res|etMappin|
|00003200| 67 28 26 70 6f 72 74 4d | 61 70 70 69 6e 67 29 3b |g(&portM|apping);|
|00003210| 0d 09 4d 6f 76 65 4d 61 | 70 70 69 6e 67 28 26 70 |..MoveMa|pping(&p|
|00003220| 6f 72 74 4d 61 70 70 69 | 6e 67 2c 20 0d 09 09 09 |ortMappi|ng, ....|
|00003230| 09 09 67 72 69 64 2e 78 | 20 2a 20 28 2a 61 4a 75 |..grid.x| * (*aJu|
|00003240| 67 67 6c 65 29 2d 3e 6e | 75 6d 43 6f 75 6e 74 73 |ggle)->n|umCounts|
|00003250| 2c 20 2f 2f 20 73 68 69 | 66 74 20 72 69 67 68 74 |, // shi|ft right|
|00003260| 20 6f 6e 65 20 6a 75 67 | 67 6c 65 0d 09 09 09 09 | one jug|gle.....|
|00003270| 09 30 29 3b 0d 09 47 58 | 53 65 74 56 69 65 77 50 |.0);..GX|SetViewP|
|00003280| 6f 72 74 4d 61 70 70 69 | 6e 67 28 6e 65 77 50 6f |ortMappi|ng(newPo|
|00003290| 72 74 2c 20 26 70 6f 72 | 74 4d 61 70 70 69 6e 67 |rt, &por|tMapping|
|000032a0| 29 3b 0d 09 47 58 53 65 | 74 56 69 65 77 50 6f 72 |);..GXSe|tViewPor|
|000032b0| 74 50 61 72 65 6e 74 28 | 6e 65 77 50 6f 72 74 2c |tParent(|newPort,|
|000032c0| 20 64 6f 63 50 6f 72 74 | 29 3b 0d 09 28 2a 61 4a | docPort|);..(*aJ|
|000032d0| 75 67 67 6c 65 29 2d 3e | 61 66 74 65 72 50 6f 72 |uggle)->|afterPor|
|000032e0| 74 20 3d 20 6e 65 77 50 | 6f 72 74 3b 0d 09 0d 09 |t = newP|ort;....|
|000032f0| 2f 2f 20 43 6c 65 61 6e | 20 75 70 0d 09 47 58 44 |// Clean| up..GXD|
|00003300| 69 73 70 6f 73 65 53 68 | 61 70 65 28 63 6c 69 70 |isposeSh|ape(clip|
|00003310| 53 68 61 70 65 29 3b 20 | 63 6c 69 70 53 68 61 70 |Shape); |clipShap|
|00003320| 65 20 3d 20 6e 69 6c 3b | 0d 0d 09 72 65 74 75 72 |e = nil;|...retur|
|00003330| 6e 20 6e 6f 45 72 72 3b | 0d 7d 0d 0d 2f 2f 20 4d |n noErr;|.}..// M|
|00003340| 61 6b 65 20 74 68 65 20 | 70 69 63 74 75 72 65 20 |ake the |picture |
|00003350| 73 68 61 70 65 73 20 74 | 68 61 74 20 63 6f 6e 74 |shapes t|hat cont|
|00003360| 61 69 6e 20 74 68 65 20 | 6a 75 67 67 6c 65 72 73 |ain the |jugglers|
|00003370| 20 61 6e 64 20 74 68 72 | 6f 77 73 2e 20 41 64 64 | and thr|ows. Add|
|00003380| 20 74 68 65 6d 0d 2f 2f | 20 69 6e 74 6f 20 6f 6e | them.//| into on|
|00003390| 65 20 63 6f 6e 74 61 69 | 6e 69 6e 67 20 70 69 63 |e contai|ning pic|
|000033a0| 74 75 72 65 20 73 68 61 | 70 65 20 61 6e 64 20 72 |ture sha|pe and r|
|000033b0| 65 74 75 72 6e 20 69 74 | 2e 20 41 6c 73 6f 20 63 |eturn it|. Also c|
|000033c0| 72 65 61 74 65 20 74 68 | 65 20 0d 2f 2f 20 61 72 |reate th|e .// ar|
|000033d0| 72 6f 77 20 73 68 61 70 | 65 20 66 6f 72 20 74 68 |row shap|e for th|
|000033e0| 65 20 74 68 72 6f 77 73 | 0d 67 78 53 68 61 70 65 |e throws|.gxShape|
|000033f0| 20 53 65 74 55 70 4a 75 | 67 67 6c 65 47 72 61 70 | SetUpJu|ggleGrap|
|00003400| 68 69 63 73 28 57 69 6e | 64 6f 77 50 74 72 20 77 |hics(Win|dowPtr w|
|00003410| 69 6e 64 6f 77 2c 20 4a | 75 67 67 6c 65 48 61 6e |indow, J|uggleHan|
|00003420| 64 6c 65 20 61 4a 75 67 | 67 6c 65 29 0d 7b 0d 09 |dle aJug|gle).{..|
|00003430| 67 78 53 68 61 70 65 09 | 70 61 67 65 50 69 63 74 |gxShape.|pagePict|
|00003440| 2c 20 74 68 72 6f 77 73 | 50 69 63 74 2c 20 66 61 |, throws|Pict, fa|
|00003450| 64 65 64 54 68 72 6f 77 | 73 50 69 63 74 2c 20 6a |dedThrow|sPict, j|
|00003460| 75 67 67 6c 65 72 73 50 | 69 63 74 2c 20 73 65 70 |ugglersP|ict, sep|
|00003470| 73 50 69 63 74 2c 20 6a | 75 67 67 6c 65 72 2c 20 |sPict, j|uggler, |
|00003480| 73 65 70 3b 0d 09 73 68 | 6f 72 74 09 63 6f 75 6e |sep;..sh|ort.coun|
|00003490| 74 3b 0d 09 0d 09 2f 2f | 2d 2d 2d 2d 2d 2d 2d 2d |t;....//|--------|
|000034a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000034b0| 0d 09 2f 2f 20 53 65 74 | 20 75 70 20 74 68 65 20 |..// Set| up the |
|000034c0| 76 69 65 77 20 70 6f 72 | 74 20 68 69 65 72 61 72 |view por|t hierar|
|000034d0| 63 68 79 0d 09 69 66 28 | 53 65 74 55 70 4a 75 67 |chy..if(|SetUpJug|
|000034e0| 67 6c 65 56 69 65 77 50 | 6f 72 74 73 28 77 69 6e |gleViewP|orts(win|
|000034f0| 64 6f 77 2c 20 61 4a 75 | 67 67 6c 65 29 20 21 3d |dow, aJu|ggle) !=|
|00003500| 20 6e 6f 45 72 72 29 0d | 09 09 72 65 74 75 72 6e | noErr).|..return|
|00003510| 20 6e 69 6c 3b 0d 09 0d | 09 2f 2f 2d 2d 2d 2d 2d | nil;...|.//-----|
|00003520| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003530| 2d 2d 2d 0d 09 2f 2f 20 | 6d 61 6b 65 20 74 68 65 |---..// |make the|
|00003540| 20 6a 75 67 67 6c 65 72 | 73 20 70 69 63 74 0d 09 | juggler|s pict..|
|00003550| 6a 75 67 67 6c 65 72 73 | 50 69 63 74 20 3d 20 47 |jugglers|Pict = G|
|00003560| 58 4e 65 77 53 68 61 70 | 65 28 67 78 50 69 63 74 |XNewShap|e(gxPict|
|00003570| 75 72 65 54 79 70 65 29 | 3b 0d 09 4e 69 6c 53 68 |ureType)|;..NilSh|
|00003580| 61 70 65 52 65 74 75 72 | 6e 4e 69 6c 28 6a 75 67 |apeRetur|nNil(jug|
|00003590| 67 6c 65 72 73 50 69 63 | 74 29 3b 0d 09 0d 09 2f |glersPic|t);..../|
|000035a0| 2f 20 4d 61 6b 65 20 69 | 74 20 64 72 61 77 20 69 |/ Make i|t draw i|
|000035b0| 6e 20 74 68 65 20 6d 61 | 69 6e 20 70 6f 72 74 0d |n the ma|in port.|
|000035c0| 09 53 65 74 53 68 61 70 | 65 4d 61 69 6e 50 6f 72 |.SetShap|eMainPor|
|000035d0| 74 28 61 4a 75 67 67 6c | 65 2c 20 6a 75 67 67 6c |t(aJuggl|e, juggl|
|000035e0| 65 72 73 50 69 63 74 29 | 3b 0d 09 0d 09 2f 2f 20 |ersPict)|;....// |
|000035f0| 61 64 64 20 74 68 65 20 | 72 69 67 68 74 20 6e 75 |add the |right nu|
|00003600| 6d 62 65 72 20 6f 66 20 | 6a 75 67 67 6c 65 72 73 |mber of |jugglers|
|00003610| 0d 09 66 6f 72 28 63 6f | 75 6e 74 20 3d 20 30 3b |..for(co|unt = 0;|
|00003620| 20 63 6f 75 6e 74 20 3c | 20 28 2a 61 4a 75 67 67 | count <| (*aJugg|
|00003630| 6c 65 29 2d 3e 6e 75 6d | 4a 75 67 67 6c 65 72 73 |le)->num|Jugglers|
|00003640| 3b 20 63 6f 75 6e 74 2b | 2b 29 0d 09 7b 0d 09 09 |; count+|+)..{...|
|00003650| 6a 75 67 67 6c 65 72 20 | 3d 20 4d 61 6b 65 4a 75 |juggler |= MakeJu|
|00003660| 67 67 6c 65 72 53 68 61 | 70 65 28 61 4a 75 67 67 |gglerSha|pe(aJugg|
|00003670| 6c 65 2c 20 74 72 75 65 | 2c 20 63 6f 75 6e 74 20 |le, true|, count |
|00003680| 2b 20 31 29 3b 0d 09 09 | 69 66 28 63 6f 75 6e 74 |+ 1);...|if(count|
|00003690| 20 3e 20 30 29 20 2f 2f | 20 70 72 65 76 65 6e 74 | > 0) //| prevent|
|000036a0| 73 20 77 61 72 6e 69 6e | 67 3a 20 67 65 6f 6d 65 |s warnin|g: geome|
|000036b0| 74 72 79 5f 75 6e 6e 61 | 66 66 65 63 74 65 64 0d |try_unna|ffected.|
|000036c0| 09 09 09 47 58 4d 6f 76 | 65 53 68 61 70 65 28 6a |...GXMov|eShape(j|
|000036d0| 75 67 67 6c 65 72 2c 20 | 30 2c 20 28 2a 61 4a 75 |uggler, |0, (*aJu|
|000036e0| 67 67 6c 65 29 2d 3e 67 | 72 69 64 50 74 2e 79 20 |ggle)->g|ridPt.y |
|000036f0| 2a 20 63 6f 75 6e 74 29 | 3b 0d 09 09 41 64 64 54 |* count)|;...AddT|
|00003700| 6f 50 69 63 74 75 72 65 | 28 6a 75 67 67 6c 65 72 |oPicture|(juggler|
|00003710| 73 50 69 63 74 2c 20 6a | 75 67 67 6c 65 72 2c 20 |sPict, j|uggler, |
|00003720| 6e 69 6c 2c 20 6e 69 6c | 2c 20 6e 69 6c 29 3b 0d |nil, nil|, nil);.|
|00003730| 09 09 47 58 44 69 73 70 | 6f 73 65 53 68 61 70 65 |..GXDisp|oseShape|
|00003740| 28 6a 75 67 67 6c 65 72 | 29 3b 0d 09 7d 0d 0d 09 |(juggler|);..}...|
|00003750| 2f 2f 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |//------|--------|
|00003760| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 09 2f 2f 20 6d |--------|--..// m|
|00003770| 61 6b 65 20 74 68 65 20 | 74 68 72 6f 77 73 20 70 |ake the |throws p|
|00003780| 69 63 74 0d 09 74 68 72 | 6f 77 73 50 69 63 74 20 |ict..thr|owsPict |
|00003790| 3d 20 47 58 4e 65 77 53 | 68 61 70 65 28 67 78 50 |= GXNewS|hape(gxP|
|000037a0| 69 63 74 75 72 65 54 79 | 70 65 29 3b 0d 09 4e 69 |ictureTy|pe);..Ni|
|000037b0| 6c 53 68 61 70 65 52 65 | 74 75 72 6e 4e 69 6c 28 |lShapeRe|turnNil(|
|000037c0| 74 68 72 6f 77 73 50 69 | 63 74 29 3b 0d 0d 09 2f |throwsPi|ct);.../|
|000037d0| 2f 20 4d 61 6b 65 20 69 | 74 20 64 72 61 77 20 69 |/ Make i|t draw i|
|000037e0| 6e 20 74 68 65 20 6d 61 | 69 6e 20 70 6f 72 74 0d |n the ma|in port.|
|000037f0| 09 53 65 74 53 68 61 70 | 65 4d 61 69 6e 50 6f 72 |.SetShap|eMainPor|
|00003800| 74 28 61 4a 75 67 67 6c | 65 2c 20 74 68 72 6f 77 |t(aJuggl|e, throw|
|00003810| 73 50 69 63 74 29 3b 0d | 09 0d 09 2f 2f 2d 2d 2d |sPict);.|...//---|
|00003820| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003830| 2d 2d 2d 2d 2d 0d 09 2f | 2f 20 6d 61 6b 65 20 74 |-----../|/ make t|
|00003840| 68 65 20 66 61 64 65 64 | 20 74 68 72 6f 77 73 20 |he faded| throws |
|00003850| 70 69 63 74 0d 09 66 61 | 64 65 64 54 68 72 6f 77 |pict..fa|dedThrow|
|00003860| 73 50 69 63 74 20 3d 20 | 47 58 4e 65 77 53 68 61 |sPict = |GXNewSha|
|00003870| 70 65 28 67 78 50 69 63 | 74 75 72 65 54 79 70 65 |pe(gxPic|tureType|
|00003880| 29 3b 0d 09 4e 69 6c 53 | 68 61 70 65 52 65 74 75 |);..NilS|hapeRetu|
|00003890| 72 6e 4e 69 6c 28 66 61 | 64 65 64 54 68 72 6f 77 |rnNil(fa|dedThrow|
|000038a0| 73 50 69 63 74 29 3b 0d | 0d 09 2f 2f 20 53 65 74 |sPict);.|..// Set|
|000038b0| 20 73 68 61 70 65 20 74 | 6f 20 64 72 61 77 20 74 | shape t|o draw t|
|000038c0| 6f 20 74 68 65 20 61 6c | 74 65 72 6e 61 74 65 20 |o the al|ternate |
|000038d0| 76 69 65 77 20 70 6f 72 | 74 73 0d 09 53 65 74 53 |view por|ts..SetS|
|000038e0| 68 61 70 65 46 61 64 65 | 50 6f 72 74 73 28 61 4a |hapeFade|Ports(aJ|
|000038f0| 75 67 67 6c 65 2c 20 66 | 61 64 65 64 54 68 72 6f |uggle, f|adedThro|
|00003900| 77 73 50 69 63 74 29 3b | 0d 09 0d 09 2f 2f 2d 2d |wsPict);|....//--|
|00003910| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003920| 2d 2d 2d 2d 2d 2d 0d 09 | 2f 2f 20 6d 61 6b 65 20 |------..|// make |
|00003930| 74 68 65 20 73 65 70 61 | 72 61 74 6f 72 73 20 70 |the sepa|rators p|
|00003940| 69 63 74 0d 09 73 65 70 | 73 50 69 63 74 20 3d 20 |ict..sep|sPict = |
|00003950| 47 58 4e 65 77 53 68 61 | 70 65 28 67 78 50 69 63 |GXNewSha|pe(gxPic|
|00003960| 74 75 72 65 54 79 70 65 | 29 3b 0d 09 4e 69 6c 53 |tureType|);..NilS|
|00003970| 68 61 70 65 52 65 74 75 | 72 6e 4e 69 6c 28 73 65 |hapeRetu|rnNil(se|
|00003980| 70 73 50 69 63 74 29 3b | 0d 0d 09 2f 2f 20 4d 61 |psPict);|...// Ma|
|00003990| 6b 65 20 69 74 20 64 72 | 61 77 20 69 6e 20 74 68 |ke it dr|aw in th|
|000039a0| 65 20 6d 61 69 6e 20 70 | 6f 72 74 0d 09 53 65 74 |e main p|ort..Set|
|000039b0| 53 68 61 70 65 4d 61 69 | 6e 50 6f 72 74 28 61 4a |ShapeMai|nPort(aJ|
|000039c0| 75 67 67 6c 65 2c 20 73 | 65 70 73 50 69 63 74 29 |uggle, s|epsPict)|
|000039d0| 3b 0d 09 0d 09 47 58 53 | 65 74 53 68 61 70 65 41 |;....GXS|etShapeA|
|000039e0| 74 74 72 69 62 75 74 65 | 73 28 73 65 70 73 50 69 |ttribute|s(sepsPi|
|000039f0| 63 74 2c 0d 09 09 09 09 | 09 09 09 47 58 47 65 74 |ct,.....|...GXGet|
|00003a00| 53 68 61 70 65 41 74 74 | 72 69 62 75 74 65 73 28 |ShapeAtt|ributes(|
|00003a10| 73 65 70 73 50 69 63 74 | 29 20 7c 20 67 78 55 6e |sepsPict|) | gxUn|
|00003a20| 69 71 75 65 49 74 65 6d | 73 53 68 61 70 65 29 3b |iqueItem|sShape);|
|00003a30| 0d 0d 09 2f 2f 20 4d 61 | 6b 65 20 6f 6e 65 20 76 |...// Ma|ke one v|
|00003a40| 65 72 74 69 63 61 6c 20 | 73 65 70 61 72 61 74 6f |ertical |separato|
|00003a50| 72 0d 09 73 65 70 20 3d | 20 4d 61 6b 65 53 65 70 |r..sep =| MakeSep|
|00003a60| 61 72 61 74 6f 72 53 68 | 61 70 65 28 61 4a 75 67 |aratorSh|ape(aJug|
|00003a70| 67 6c 65 2c 20 66 61 6c | 73 65 29 3b 0d 09 4e 69 |gle, fal|se);..Ni|
|00003a80| 6c 53 68 61 70 65 52 65 | 74 75 72 6e 4e 69 6c 28 |lShapeRe|turnNil(|
|00003a90| 73 65 70 29 3b 0d 0d 09 | 2f 2f 20 61 64 64 20 69 |sep);...|// add i|
|00003aa0| 74 20 74 68 72 69 63 65 | 2c 20 6f 6e 63 65 20 61 |t thrice|, once a|
|00003ab0| 74 20 65 61 63 68 20 65 | 6e 64 20 6f 66 20 74 68 |t each e|nd of th|
|00003ac0| 65 20 6a 75 67 67 6c 65 | 2c 20 61 6e 64 20 6f 6e |e juggle|, and on|
|00003ad0| 63 65 20 69 6e 20 74 68 | 65 20 6d 69 64 64 6c 65 |ce in th|e middle|
|00003ae0| 0d 09 41 64 64 54 6f 50 | 69 63 74 75 72 65 28 73 |..AddToP|icture(s|
|00003af0| 65 70 73 50 69 63 74 2c | 20 73 65 70 2c 20 6e 69 |epsPict,| sep, ni|
|00003b00| 6c 2c 20 6e 69 6c 2c 20 | 6e 69 6c 29 3b 0d 09 47 |l, nil, |nil);..G|
|00003b10| 58 4d 6f 76 65 53 68 61 | 70 65 28 73 65 70 2c 20 |XMoveSha|pe(sep, |
|00003b20| 28 2a 61 4a 75 67 67 6c | 65 29 2d 3e 6e 75 6d 43 |(*aJuggl|e)->numC|
|00003b30| 6f 75 6e 74 73 20 2a 20 | 28 2a 61 4a 75 67 67 6c |ounts * |(*aJuggl|
|00003b40| 65 29 2d 3e 67 72 69 64 | 50 74 2e 79 2c 20 30 29 |e)->grid|Pt.y, 0)|
|00003b50| 3b 0d 09 41 64 64 54 6f | 50 69 63 74 75 72 65 28 |;..AddTo|Picture(|
|00003b60| 73 65 70 73 50 69 63 74 | 2c 20 73 65 70 2c 20 6e |sepsPict|, sep, n|
|00003b70| 69 6c 2c 20 6e 69 6c 2c | 20 6e 69 6c 29 3b 0d 09 |il, nil,| nil);..|
|00003b80| 47 58 4d 6f 76 65 53 68 | 61 70 65 28 73 65 70 2c |GXMoveSh|ape(sep,|
|00003b90| 20 28 2a 61 4a 75 67 67 | 6c 65 29 2d 3e 6e 75 6d | (*aJugg|le)->num|
|00003ba0| 43 6f 75 6e 74 73 20 2a | 20 28 2a 61 4a 75 67 67 |Counts *| (*aJugg|
|00003bb0| 6c 65 29 2d 3e 67 72 69 | 64 50 74 2e 79 2c 20 30 |le)->gri|dPt.y, 0|
|00003bc0| 29 3b 0d 09 41 64 64 54 | 6f 50 69 63 74 75 72 65 |);..AddT|oPicture|
|00003bd0| 28 73 65 70 73 50 69 63 | 74 2c 20 73 65 70 2c 20 |(sepsPic|t, sep, |
|00003be0| 6e 69 6c 2c 20 6e 69 6c | 2c 20 6e 69 6c 29 3b 0d |nil, nil|, nil);.|
|00003bf0| 09 47 58 44 69 73 70 6f | 73 65 53 68 61 70 65 28 |.GXDispo|seShape(|
|00003c00| 73 65 70 29 3b 20 73 65 | 70 20 3d 20 6e 69 6c 3b |sep); se|p = nil;|
|00003c10| 0d 09 0d 09 2f 2f 20 4d | 61 6b 65 20 6f 6e 65 20 |....// M|ake one |
|00003c20| 68 6f 72 69 7a 6f 6e 74 | 61 6c 20 73 65 70 61 72 |horizont|al separ|
|00003c30| 61 74 6f 72 0d 09 73 65 | 70 20 3d 20 4d 61 6b 65 |ator..se|p = Make|
|00003c40| 53 65 70 61 72 61 74 6f | 72 53 68 61 70 65 28 61 |Separato|rShape(a|
|00003c50| 4a 75 67 67 6c 65 2c 20 | 74 72 75 65 29 3b 0d 09 |Juggle, |true);..|
|00003c60| 4e 69 6c 53 68 61 70 65 | 52 65 74 75 72 6e 4e 69 |NilShape|ReturnNi|
|00003c70| 6c 28 73 65 70 29 3b 0d | 0d 09 2f 2f 20 61 64 64 |l(sep);.|..// add|
|00003c80| 20 74 68 65 20 72 69 67 | 68 74 20 6e 75 6d 62 65 | the rig|ht numbe|
|00003c90| 72 20 6f 66 20 68 6f 72 | 69 7a 2e 20 73 65 70 61 |r of hor|iz. sepa|
|00003ca0| 72 61 74 6f 72 73 20 61 | 6e 64 20 64 69 73 70 6f |rators a|nd dispo|
|00003cb0| 73 65 20 74 68 65 20 6f | 72 69 67 69 6e 61 6c 0d |se the o|riginal.|
|00003cc0| 09 63 6f 75 6e 74 20 3d | 20 28 2a 61 4a 75 67 67 |.count =| (*aJugg|
|00003cd0| 6c 65 29 2d 3e 6e 75 6d | 4a 75 67 67 6c 65 72 73 |le)->num|Jugglers|
|00003ce0| 20 2d 20 31 3b 0d 09 77 | 68 69 6c 65 28 63 6f 75 | - 1;..w|hile(cou|
|00003cf0| 6e 74 2d 2d 20 3e 20 30 | 29 0d 09 7b 0d 09 09 41 |nt-- > 0|)..{...A|
|00003d00| 64 64 54 6f 50 69 63 74 | 75 72 65 28 73 65 70 73 |ddToPict|ure(seps|
|00003d10| 50 69 63 74 2c 20 73 65 | 70 2c 20 6e 69 6c 2c 20 |Pict, se|p, nil, |
|00003d20| 6e 69 6c 2c 20 6e 69 6c | 29 3b 0d 09 09 47 58 4d |nil, nil|);...GXM|
|00003d30| 6f 76 65 53 68 61 70 65 | 28 73 65 70 2c 20 30 2c |oveShape|(sep, 0,|
|00003d40| 20 28 2a 61 4a 75 67 67 | 6c 65 29 2d 3e 67 72 69 | (*aJugg|le)->gri|
|00003d50| 64 50 74 2e 79 29 3b 0d | 09 7d 0d 09 47 58 44 69 |dPt.y);.|.}..GXDi|
|00003d60| 73 70 6f 73 65 53 68 61 | 70 65 28 73 65 70 29 3b |sposeSha|pe(sep);|
|00003d70| 20 73 65 70 20 3d 20 6e | 69 6c 3b 09 0d 09 0d 09 | sep = n|il;.....|
|00003d80| 2f 2f 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |//------|--------|
|00003d90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 09 2f 2f 20 67 |--------|--..// g|
|00003da0| 65 74 20 74 68 65 20 70 | 61 67 65 20 70 69 63 74 |et the p|age pict|
|00003db0| 0d 09 70 61 67 65 50 69 | 63 74 20 3d 20 28 2a 61 |..pagePi|ct = (*a|
|00003dc0| 4a 75 67 67 6c 65 29 2d | 3e 64 6f 63 50 61 67 65 |Juggle)-|>docPage|
|00003dd0| 3b 0d 09 0d 09 2f 2f 20 | 41 64 64 20 74 68 65 20 |;....// |Add the |
|00003de0| 6f 74 68 65 72 20 70 69 | 63 74 75 72 65 73 20 74 |other pi|ctures t|
|00003df0| 6f 20 74 68 65 20 70 61 | 67 65 20 70 69 63 74 0d |o the pa|ge pict.|
|00003e00| 09 41 64 64 54 6f 50 69 | 63 74 75 72 65 28 70 61 |.AddToPi|cture(pa|
|00003e10| 67 65 50 69 63 74 2c 20 | 6a 75 67 67 6c 65 72 73 |gePict, |jugglers|
|00003e20| 50 69 63 74 2c 20 6e 69 | 6c 2c 20 6e 69 6c 2c 20 |Pict, ni|l, nil, |
|00003e30| 6e 69 6c 29 3b 0d 09 41 | 64 64 54 6f 50 69 63 74 |nil);..A|ddToPict|
|00003e40| 75 72 65 28 70 61 67 65 | 50 69 63 74 2c 20 73 65 |ure(page|Pict, se|
|00003e50| 70 73 50 69 63 74 2c 20 | 6e 69 6c 2c 20 6e 69 6c |psPict, |nil, nil|
|00003e60| 2c 20 6e 69 6c 29 3b 0d | 09 41 64 64 54 6f 50 69 |, nil);.|.AddToPi|
|00003e70| 63 74 75 72 65 28 70 61 | 67 65 50 69 63 74 2c 20 |cture(pa|gePict, |
|00003e80| 74 68 72 6f 77 73 50 69 | 63 74 2c 20 6e 69 6c 2c |throwsPi|ct, nil,|
|00003e90| 20 6e 69 6c 2c 20 6e 69 | 6c 29 3b 0d 0d 09 2f 2f | nil, ni|l);...//|
|00003ea0| 20 53 61 76 65 20 74 68 | 65 20 61 70 70 72 6f 70 | Save th|e approp|
|00003eb0| 72 69 61 74 65 20 72 65 | 66 65 72 65 6e 63 65 73 |riate re|ferences|
|00003ec0| 20 69 6e 20 74 68 65 20 | 6a 75 67 67 6c 65 20 73 | in the |juggle s|
|00003ed0| 74 72 75 63 74 75 72 65 | 0d 09 28 2a 61 4a 75 67 |tructure|..(*aJug|
|00003ee0| 67 6c 65 29 2d 3e 6a 75 | 67 67 6c 65 72 73 50 69 |gle)->ju|gglersPi|
|00003ef0| 63 74 20 3d 20 6a 75 67 | 67 6c 65 72 73 50 69 63 |ct = jug|glersPic|
|00003f00| 74 3b 0d 09 28 2a 61 4a | 75 67 67 6c 65 29 2d 3e |t;..(*aJ|uggle)->|
|00003f10| 74 68 72 6f 77 73 50 69 | 63 74 20 3d 20 74 68 72 |throwsPi|ct = thr|
|00003f20| 6f 77 73 50 69 63 74 3b | 09 0d 09 28 2a 61 4a 75 |owsPict;|...(*aJu|
|00003f30| 67 67 6c 65 29 2d 3e 66 | 61 64 65 64 54 68 72 6f |ggle)->f|adedThro|
|00003f40| 77 73 50 69 63 74 20 3d | 20 66 61 64 65 64 54 68 |wsPict =| fadedTh|
|00003f50| 72 6f 77 73 50 69 63 74 | 3b 09 0d 09 28 2a 61 4a |rowsPict|;...(*aJ|
|00003f60| 75 67 67 6c 65 29 2d 3e | 73 65 70 73 50 69 63 74 |uggle)->|sepsPict|
|00003f70| 20 3d 20 73 65 70 73 50 | 69 63 74 3b 09 0d 09 0d | = sepsP|ict;....|
|00003f80| 09 2f 2f 20 72 65 74 75 | 72 6e 20 74 68 65 20 74 |.// retu|rn the t|
|00003f90| 6f 70 20 6c 65 76 65 6c | 20 70 61 67 65 20 70 69 |op level| page pi|
|00003fa0| 63 74 0d 09 72 65 74 75 | 72 6e 20 70 61 67 65 50 |ct..retu|rn pageP|
|00003fb0| 69 63 74 3b 0d 7d 0d 0d | 76 6f 69 64 20 43 6c 65 |ict;.}..|void Cle|
|00003fc0| 61 6e 55 70 4a 75 67 67 | 6c 65 53 68 61 70 65 73 |anUpJugg|leShapes|
|00003fd0| 28 57 69 6e 64 6f 77 50 | 74 72 20 77 69 6e 64 6f |(WindowP|tr windo|
|00003fe0| 77 29 0d 7b 0d 09 4a 75 | 67 67 6c 65 48 61 6e 64 |w).{..Ju|ggleHand|
|00003ff0| 6c 65 09 61 4a 75 67 67 | 6c 65 20 3d 20 47 65 74 |le.aJugg|le = Get|
|00004000| 57 69 6e 64 6f 77 4a 75 | 67 67 6c 65 28 77 69 6e |WindowJu|ggle(win|
|00004010| 64 6f 77 29 3b 0d 0d 09 | 47 58 44 69 73 70 6f 73 |dow);...|GXDispos|
|00004020| 65 53 68 61 70 65 28 28 | 2a 61 4a 75 67 67 6c 65 |eShape((|*aJuggle|
|00004030| 29 2d 3e 6a 75 67 67 6c | 65 72 73 50 69 63 74 29 |)->juggl|ersPict)|
|00004040| 3b 20 09 2f 2f 20 44 69 | 73 70 6f 73 65 20 6f 66 |; .// Di|spose of|
|00004050| 20 74 68 69 73 20 64 6f | 63 27 73 20 6a 75 67 67 | this do|c's jugg|
|00004060| 6c 65 72 73 20 70 69 63 | 74 75 72 65 2e 0d 09 47 |lers pic|ture...G|
|00004070| 58 44 69 73 70 6f 73 65 | 53 68 61 70 65 28 28 2a |XDispose|Shape((*|
|00004080| 61 4a 75 67 67 6c 65 29 | 2d 3e 74 68 72 6f 77 73 |aJuggle)|->throws|
|00004090| 50 69 63 74 29 3b 20 09 | 09 2f 2f 20 44 69 73 70 |Pict); .|.// Disp|
|000040a0| 6f 73 65 20 6f 66 20 74 | 68 69 73 20 64 6f 63 27 |ose of t|his doc'|
|000040b0| 73 20 74 68 72 6f 77 73 | 20 70 69 63 74 75 72 65 |s throws| picture|
|000040c0| 2e 0d 09 47 58 44 69 73 | 70 6f 73 65 53 68 61 70 |...GXDis|poseShap|
|000040d0| 65 28 28 2a 61 4a 75 67 | 67 6c 65 29 2d 3e 66 61 |e((*aJug|gle)->fa|
|000040e0| 64 65 64 54 68 72 6f 77 | 73 50 69 63 74 29 3b 20 |dedThrow|sPict); |
|000040f0| 09 2f 2f 20 44 69 73 70 | 6f 73 65 20 6f 66 20 74 |.// Disp|ose of t|
|00004100| 68 69 73 20 64 6f 63 27 | 73 20 66 61 64 65 64 20 |his doc'|s faded |
|00004110| 74 68 72 6f 77 73 20 70 | 69 63 74 75 72 65 2e 0d |throws p|icture..|
|00004120| 09 47 58 44 69 73 70 6f | 73 65 53 68 61 70 65 28 |.GXDispo|seShape(|
|00004130| 28 2a 61 4a 75 67 67 6c | 65 29 2d 3e 73 65 70 73 |(*aJuggl|e)->seps|
|00004140| 50 69 63 74 29 3b 20 09 | 09 09 2f 2f 20 44 69 73 |Pict); .|..// Dis|
|00004150| 70 6f 73 65 20 6f 66 20 | 74 68 69 73 20 64 6f 63 |pose of |this doc|
|00004160| 27 73 20 73 65 70 61 72 | 61 74 6f 72 73 20 70 69 |'s separ|ators pi|
|00004170| 63 74 75 72 65 2e 0d 7d | 0d 0d 2f 2f 2d 2d 2d 2d |cture..}|..//----|
|00004180| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004190| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000041a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000041b0| 0d 2f 2f 20 67 72 61 70 | 68 69 63 73 20 75 74 69 |.// grap|hics uti|
|000041c0| 6c 69 74 79 20 72 6f 75 | 74 69 6e 65 73 0d 0d 2f |lity rou|tines../|
|000041d0| 2f 20 41 64 64 20 74 68 | 65 20 74 68 72 6f 77 20 |/ Add th|e throw |
|000041e0| 73 68 61 70 65 28 73 29 | 20 74 6f 20 74 68 65 20 |shape(s)| to the |
|000041f0| 74 68 72 6f 77 73 20 70 | 69 63 74 28 73 29 2c 20 |throws p|ict(s), |
|00004200| 64 72 61 77 69 6e 67 20 | 69 74 28 74 68 65 6d 29 |drawing |it(them)|
|00004210| 0d 76 6f 69 64 20 41 64 | 64 4e 65 77 54 68 72 6f |.void Ad|dNewThro|
|00004220| 77 53 68 61 70 65 28 4a | 75 67 67 6c 65 48 61 6e |wShape(J|uggleHan|
|00004230| 64 6c 65 20 61 4a 75 67 | 67 6c 65 2c 20 67 78 4c |dle aJug|gle, gxL|
|00004240| 69 6e 65 20 2a 6c 69 6e | 65 2c 20 42 6f 6f 6c 65 |ine *lin|e, Boole|
|00004250| 61 6e 20 64 72 61 77 29 | 0d 7b 0d 09 67 78 53 68 |an draw)|.{..gxSh|
|00004260| 61 70 65 09 09 61 72 72 | 6f 77 2c 20 66 61 64 65 |ape..arr|ow, fade|
|00004270| 41 72 72 6f 77 3b 0d 09 | 0d 09 2f 2f 20 4d 61 6b |Arrow;..|..// Mak|
|00004280| 65 20 61 6e 20 61 72 72 | 6f 77 20 73 68 61 70 65 |e an arr|ow shape|
|00004290| 20 61 6e 64 20 73 65 74 | 20 69 74 73 20 67 65 6f | and set| its geo|
|000042a0| 6d 65 74 72 79 0d 09 61 | 72 72 6f 77 20 3d 20 4d |metry..a|rrow = M|
|000042b0| 61 6b 65 54 68 72 6f 77 | 53 68 61 70 65 28 61 4a |akeThrow|Shape(aJ|
|000042c0| 75 67 67 6c 65 2c 20 66 | 61 6c 73 65 29 3b 0d 09 |uggle, f|alse);..|
|000042d0| 47 58 53 65 74 4c 69 6e | 65 28 61 72 72 6f 77 2c |GXSetLin|e(arrow,|
|000042e0| 20 6c 69 6e 65 29 3b 0d | 09 0d 09 2f 2f 20 4d 61 | line);.|...// Ma|
|000042f0| 6b 65 20 61 20 66 61 64 | 65 64 20 61 72 72 6f 77 |ke a fad|ed arrow|
|00004300| 20 73 68 61 70 65 20 61 | 6e 64 20 73 65 74 20 69 | shape a|nd set i|
|00004310| 74 73 20 67 65 6f 6d 65 | 74 72 79 0d 09 66 61 64 |ts geome|try..fad|
|00004320| 65 41 72 72 6f 77 20 3d | 20 4d 61 6b 65 54 68 72 |eArrow =| MakeThr|
|00004330| 6f 77 53 68 61 70 65 28 | 61 4a 75 67 67 6c 65 2c |owShape(|aJuggle,|
|00004340| 20 74 72 75 65 29 3b 0d | 09 47 58 53 65 74 4c 69 | true);.|.GXSetLi|
|00004350| 6e 65 28 66 61 64 65 41 | 72 72 6f 77 2c 20 6c 69 |ne(fadeA|rrow, li|
|00004360| 6e 65 29 3b 0d 0d 09 2f | 2f 20 61 64 64 20 74 68 |ne);.../|/ add th|
|00004370| 65 6d 20 74 6f 20 74 68 | 65 20 66 72 6f 6e 74 20 |em to th|e front |
|00004380| 6f 66 20 74 68 65 69 72 | 20 70 69 63 74 75 72 65 |of their| picture|
|00004390| 73 0d 09 47 58 53 65 74 | 50 69 63 74 75 72 65 50 |s..GXSet|PictureP|
|000043a0| 61 72 74 73 28 28 2a 61 | 4a 75 67 67 6c 65 29 2d |arts((*a|Juggle)-|
|000043b0| 3e 74 68 72 6f 77 73 50 | 69 63 74 2c 20 31 2c 20 |>throwsP|ict, 1, |
|000043c0| 30 2c 20 31 2c 20 26 61 | 72 72 6f 77 2c 20 6e 69 |0, 1, &a|rrow, ni|
|000043d0| 6c 2c 20 6e 69 6c 2c 20 | 6e 69 6c 29 3b 0d 09 47 |l, nil, |nil);..G|
|000043e0| 58 53 65 74 50 69 63 74 | 75 72 65 50 61 72 74 73 |XSetPict|ureParts|
|000043f0| 28 28 2a 61 4a 75 67 67 | 6c 65 29 2d 3e 66 61 64 |((*aJugg|le)->fad|
|00004400| 65 64 54 68 72 6f 77 73 | 50 69 63 74 2c 20 31 2c |edThrows|Pict, 1,|
|00004410| 20 30 2c 20 31 2c 20 26 | 66 61 64 65 41 72 72 6f | 0, 1, &|fadeArro|
|00004420| 77 2c 20 6e 69 6c 2c 20 | 6e 69 6c 2c 20 6e 69 6c |w, nil, |nil, nil|
|00004430| 29 3b 0d 0d 09 2f 2f 20 | 44 72 61 77 20 74 68 65 |);...// |Draw the|
|00004440| 6d 0d 09 69 66 28 64 72 | 61 77 29 0d 09 7b 0d 09 |m..if(dr|aw)..{..|
|00004450| 09 47 58 44 72 61 77 53 | 68 61 70 65 28 61 72 72 |.GXDrawS|hape(arr|
|00004460| 6f 77 29 3b 0d 09 09 47 | 58 44 72 61 77 53 68 61 |ow);...G|XDrawSha|
|00004470| 70 65 28 66 61 64 65 41 | 72 72 6f 77 29 3b 0d 09 |pe(fadeA|rrow);..|
|00004480| 7d 0d 09 0d 09 2f 2f 20 | 63 6c 65 61 6e 20 75 70 |}....// |clean up|
|00004490| 0d 09 47 58 44 69 73 70 | 6f 73 65 53 68 61 70 65 |..GXDisp|oseShape|
|000044a0| 28 61 72 72 6f 77 29 3b | 0d 09 47 58 44 69 73 70 |(arrow);|..GXDisp|
|000044b0| 6f 73 65 53 68 61 70 65 | 28 66 61 64 65 41 72 72 |oseShape|(fadeArr|
|000044c0| 6f 77 29 3b 0d 7d 0d 0d | 2f 2f 20 52 65 6d 6f 76 |ow);.}..|// Remov|
|000044d0| 65 20 74 68 65 20 74 68 | 72 6f 77 20 73 68 61 70 |e the th|row shap|
|000044e0| 65 20 66 72 6f 6d 20 74 | 68 65 20 74 68 72 6f 77 |e from t|he throw|
|000044f0| 73 20 70 69 63 74 2c 20 | 65 72 61 73 69 6e 67 20 |s pict, |erasing |
|00004500| 66 69 72 73 74 0d 76 6f | 69 64 20 52 65 6d 6f 76 |first.vo|id Remov|
|00004510| 65 54 68 72 6f 77 53 68 | 61 70 65 28 4a 75 67 67 |eThrowSh|ape(Jugg|
|00004520| 6c 65 48 61 6e 64 6c 65 | 20 61 4a 75 67 67 6c 65 |leHandle| aJuggle|
|00004530| 2c 20 73 68 6f 72 74 20 | 73 68 61 70 65 49 6e 64 |, short |shapeInd|
|00004540| 65 78 29 0d 7b 0d 09 67 | 78 53 68 61 70 65 09 09 |ex).{..g|xShape..|
|00004550| 74 68 72 6f 77 53 68 61 | 70 65 2c 20 66 61 64 65 |throwSha|pe, fade|
|00004560| 64 54 68 72 6f 77 53 68 | 61 70 65 3b 0d 09 0d 09 |dThrowSh|ape;....|
|00004570| 2f 2f 20 47 65 74 20 73 | 68 61 70 65 73 0d 09 47 |// Get s|hapes..G|
|00004580| 65 74 50 69 63 74 75 72 | 65 49 74 65 6d 28 28 2a |etPictur|eItem((*|
|00004590| 61 4a 75 67 67 6c 65 29 | 2d 3e 74 68 72 6f 77 73 |aJuggle)|->throws|
|000045a0| 50 69 63 74 2c 20 73 68 | 61 70 65 49 6e 64 65 78 |Pict, sh|apeIndex|
|000045b0| 2c 20 26 74 68 72 6f 77 | 53 68 61 70 65 2c 20 6e |, &throw|Shape, n|
|000045c0| 69 6c 2c 20 6e 69 6c 2c | 20 6e 69 6c 29 3b 0d 09 |il, nil,| nil);..|
|000045d0| 47 65 74 50 69 63 74 75 | 72 65 49 74 65 6d 28 28 |GetPictu|reItem((|
|000045e0| 2a 61 4a 75 67 67 6c 65 | 29 2d 3e 66 61 64 65 64 |*aJuggle|)->faded|
|000045f0| 54 68 72 6f 77 73 50 69 | 63 74 2c 20 73 68 61 70 |ThrowsPi|ct, shap|
|00004600| 65 49 6e 64 65 78 2c 20 | 26 66 61 64 65 64 54 68 |eIndex, |&fadedTh|
|00004610| 72 6f 77 53 68 61 70 65 | 2c 20 6e 69 6c 2c 20 6e |rowShape|, nil, n|
|00004620| 69 6c 2c 20 6e 69 6c 29 | 3b 0d 09 0d 09 2f 2f 20 |il, nil)|;....// |
|00004630| 45 72 61 73 65 20 74 68 | 65 6d 20 62 79 20 64 72 |Erase th|em by dr|
|00004640| 61 77 69 6e 67 20 28 78 | 6f 72 2c 20 72 65 6d 65 |awing (x|or, reme|
|00004650| 6d 62 65 72 29 0d 09 47 | 58 44 72 61 77 53 68 61 |mber)..G|XDrawSha|
|00004660| 70 65 28 74 68 72 6f 77 | 53 68 61 70 65 29 3b 0d |pe(throw|Shape);.|
|00004670| 09 47 58 44 72 61 77 53 | 68 61 70 65 28 66 61 64 |.GXDrawS|hape(fad|
|00004680| 65 64 54 68 72 6f 77 53 | 68 61 70 65 29 3b 0d 09 |edThrowS|hape);..|
|00004690| 0d 09 2f 2f 20 52 65 6d | 6f 76 65 20 73 68 61 70 |..// Rem|ove shap|
|000046a0| 65 73 20 66 72 6f 6d 20 | 74 68 72 6f 77 73 50 69 |es from |throwsPi|
|000046b0| 63 74 0d 09 47 58 53 65 | 74 50 69 63 74 75 72 65 |ct..GXSe|tPicture|
|000046c0| 50 61 72 74 73 28 28 2a | 61 4a 75 67 67 6c 65 29 |Parts((*|aJuggle)|
|000046d0| 2d 3e 74 68 72 6f 77 73 | 50 69 63 74 2c 20 73 68 |->throws|Pict, sh|
|000046e0| 61 70 65 49 6e 64 65 78 | 2c 20 31 2c 20 30 2c 20 |apeIndex|, 1, 0, |
|000046f0| 6e 69 6c 2c 20 6e 69 6c | 2c 20 6e 69 6c 2c 20 6e |nil, nil|, nil, n|
|00004700| 69 6c 29 3b 0d 09 47 58 | 53 65 74 50 69 63 74 75 |il);..GX|SetPictu|
|00004710| 72 65 50 61 72 74 73 28 | 28 2a 61 4a 75 67 67 6c |reParts(|(*aJuggl|
|00004720| 65 29 2d 3e 66 61 64 65 | 64 54 68 72 6f 77 73 50 |e)->fade|dThrowsP|
|00004730| 69 63 74 2c 20 73 68 61 | 70 65 49 6e 64 65 78 2c |ict, sha|peIndex,|
|00004740| 20 31 2c 20 30 2c 20 6e | 69 6c 2c 20 6e 69 6c 2c | 1, 0, n|il, nil,|
|00004750| 20 6e 69 6c 2c 20 6e 69 | 6c 29 3b 0d 7d 0d 0d 2f | nil, ni|l);.}../|
|00004760| 2f 20 43 68 61 6e 67 65 | 20 61 20 74 68 72 6f 77 |/ Change| a throw|
|00004770| 20 73 68 61 70 65 2c 20 | 65 72 61 73 69 6e 67 20 | shape, |erasing |
|00004780| 74 68 65 20 6f 6c 64 20 | 61 6e 64 20 64 72 61 77 |the old |and draw|
|00004790| 69 6e 67 20 74 68 65 20 | 6e 65 77 0d 76 6f 69 64 |ing the |new.void|
|000047a0| 20 4d 6f 76 65 54 68 72 | 6f 77 53 68 61 70 65 28 | MoveThr|owShape(|
|000047b0| 4a 75 67 67 6c 65 48 61 | 6e 64 6c 65 20 61 4a 75 |JuggleHa|ndle aJu|
|000047c0| 67 67 6c 65 2c 20 73 68 | 6f 72 74 20 73 68 61 70 |ggle, sh|ort shap|
|000047d0| 65 49 6e 64 65 78 2c 20 | 67 78 4c 69 6e 65 20 2a |eIndex, |gxLine *|
|000047e0| 6e 65 77 4c 69 6e 65 29 | 0d 7b 0d 09 67 78 53 68 |newLine)|.{..gxSh|
|000047f0| 61 70 65 09 09 74 68 72 | 6f 77 53 68 61 70 65 2c |ape..thr|owShape,|
|00004800| 20 66 61 64 65 64 54 68 | 72 6f 77 53 68 61 70 65 | fadedTh|rowShape|
|00004810| 2c 20 6f 6c 64 53 68 61 | 70 65 2c 20 6f 6c 64 46 |, oldSha|pe, oldF|
|00004820| 61 64 65 64 53 68 61 70 | 65 3b 0d 09 0d 09 2f 2f |adedShap|e;....//|
|00004830| 20 47 65 74 20 73 68 61 | 70 65 73 0d 09 47 65 74 | Get sha|pes..Get|
|00004840| 50 69 63 74 75 72 65 49 | 74 65 6d 28 28 2a 61 4a |PictureI|tem((*aJ|
|00004850| 75 67 67 6c 65 29 2d 3e | 74 68 72 6f 77 73 50 69 |uggle)->|throwsPi|
|00004860| 63 74 2c 20 73 68 61 70 | 65 49 6e 64 65 78 2c 20 |ct, shap|eIndex, |
|00004870| 26 74 68 72 6f 77 53 68 | 61 70 65 2c 20 6e 69 6c |&throwSh|ape, nil|
|00004880| 2c 20 6e 69 6c 2c 20 6e | 69 6c 29 3b 0d 09 47 65 |, nil, n|il);..Ge|
|00004890| 74 50 69 63 74 75 72 65 | 49 74 65 6d 28 28 2a 61 |tPicture|Item((*a|
|000048a0| 4a 75 67 67 6c 65 29 2d | 3e 66 61 64 65 64 54 68 |Juggle)-|>fadedTh|
|000048b0| 72 6f 77 73 50 69 63 74 | 2c 20 73 68 61 70 65 49 |rowsPict|, shapeI|
|000048c0| 6e 64 65 78 2c 20 26 66 | 61 64 65 64 54 68 72 6f |ndex, &f|adedThro|
|000048d0| 77 53 68 61 70 65 2c 20 | 6e 69 6c 2c 20 6e 69 6c |wShape, |nil, nil|
|000048e0| 2c 20 6e 69 6c 29 3b 0d | 09 0d 09 2f 2f 20 43 6f |, nil);.|...// Co|
|000048f0| 70 79 20 74 68 65 20 73 | 68 61 70 65 73 0d 09 6f |py the s|hapes..o|
|00004900| 6c 64 53 68 61 70 65 20 | 3d 20 47 58 43 6f 70 79 |ldShape |= GXCopy|
|00004910| 54 6f 53 68 61 70 65 28 | 6e 69 6c 2c 20 74 68 72 |ToShape(|nil, thr|
|00004920| 6f 77 53 68 61 70 65 29 | 3b 0d 09 4e 69 6c 53 68 |owShape)|;..NilSh|
|00004930| 61 70 65 52 65 74 75 72 | 6e 28 6f 6c 64 53 68 61 |apeRetur|n(oldSha|
|00004940| 70 65 29 3b 0d 09 6f 6c | 64 46 61 64 65 64 53 68 |pe);..ol|dFadedSh|
|00004950| 61 70 65 20 3d 20 47 58 | 43 6f 70 79 54 6f 53 68 |ape = GX|CopyToSh|
|00004960| 61 70 65 28 6e 69 6c 2c | 20 66 61 64 65 64 54 68 |ape(nil,| fadedTh|
|00004970| 72 6f 77 53 68 61 70 65 | 29 3b 0d 09 4e 69 6c 53 |rowShape|);..NilS|
|00004980| 68 61 70 65 52 65 74 75 | 72 6e 28 6f 6c 64 46 61 |hapeRetu|rn(oldFa|
|00004990| 64 65 64 53 68 61 70 65 | 29 3b 0d 09 0d 09 2f 2f |dedShape|);....//|
|000049a0| 20 53 65 74 20 6e 65 77 | 20 6c 69 6e 65 2c 20 65 | Set new| line, e|
|000049b0| 72 61 73 65 2c 20 61 6e | 64 20 64 72 61 77 0d 09 |rase, an|d draw..|
|000049c0| 47 58 53 65 74 4c 69 6e | 65 28 74 68 72 6f 77 53 |GXSetLin|e(throwS|
|000049d0| 68 61 70 65 2c 20 6e 65 | 77 4c 69 6e 65 29 3b 0d |hape, ne|wLine);.|
|000049e0| 09 47 58 53 65 74 4c 69 | 6e 65 28 66 61 64 65 64 |.GXSetLi|ne(faded|
|000049f0| 54 68 72 6f 77 53 68 61 | 70 65 2c 20 6e 65 77 4c |ThrowSha|pe, newL|
|00004a00| 69 6e 65 29 3b 0d 09 47 | 58 44 72 61 77 53 68 61 |ine);..G|XDrawSha|
|00004a10| 70 65 28 6f 6c 64 53 68 | 61 70 65 29 3b 0d 09 47 |pe(oldSh|ape);..G|
|00004a20| 58 44 72 61 77 53 68 61 | 70 65 28 74 68 72 6f 77 |XDrawSha|pe(throw|
|00004a30| 53 68 61 70 65 29 3b 0d | 09 47 58 44 72 61 77 53 |Shape);.|.GXDrawS|
|00004a40| 68 61 70 65 28 6f 6c 64 | 46 61 64 65 64 53 68 61 |hape(old|FadedSha|
|00004a50| 70 65 29 3b 0d 09 47 58 | 44 72 61 77 53 68 61 70 |pe);..GX|DrawShap|
|00004a60| 65 28 66 61 64 65 64 54 | 68 72 6f 77 53 68 61 70 |e(fadedT|hrowShap|
|00004a70| 65 29 3b 0d 09 0d 09 2f | 2f 20 43 6c 65 61 6e 20 |e);..../|/ Clean |
|00004a80| 75 70 0d 09 47 58 44 69 | 73 70 6f 73 65 53 68 61 |up..GXDi|sposeSha|
|00004a90| 70 65 28 6f 6c 64 53 68 | 61 70 65 29 3b 0d 09 47 |pe(oldSh|ape);..G|
|00004aa0| 58 44 69 73 70 6f 73 65 | 53 68 61 70 65 28 6f 6c |XDispose|Shape(ol|
|00004ab0| 64 46 61 64 65 64 53 68 | 61 70 65 29 3b 0d 7d 0d |dFadedSh|ape);.}.|
|00004ac0| 09 09 09 09 0d 0d 2f 2f | 20 45 6d 70 74 79 20 6f |......//| Empty o|
|00004ad0| 75 74 20 74 68 65 20 74 | 68 72 6f 77 73 20 70 69 |ut the t|hrows pi|
|00004ae0| 63 74 75 72 65 20 61 6e | 64 20 72 65 62 75 69 6c |cture an|d rebuil|
|00004af0| 64 20 69 74 20 66 72 6f | 6d 20 74 68 65 20 63 6f |d it fro|m the co|
|00004b00| 6e 6e 65 63 74 69 6f 6e | 73 20 64 61 74 61 0d 76 |nnection|s data.v|
|00004b10| 6f 69 64 20 52 65 62 75 | 69 6c 64 54 68 72 6f 77 |oid Rebu|ildThrow|
|00004b20| 73 50 69 63 74 28 4a 75 | 67 67 6c 65 48 61 6e 64 |sPict(Ju|ggleHand|
|00004b30| 6c 65 20 61 4a 75 67 67 | 6c 65 29 0d 7b 0d 09 67 |le aJugg|le).{..g|
|00004b40| 78 53 68 61 70 65 09 09 | 74 68 72 6f 77 73 50 69 |xShape..|throwsPi|
|00004b50| 63 74 2c 20 66 61 64 65 | 64 54 68 72 6f 77 73 50 |ct, fade|dThrowsP|
|00004b60| 69 63 74 3b 0d 09 46 69 | 78 65 64 09 09 68 61 6e |ict;..Fi|xed..han|
|00004b70| 64 52 61 64 69 75 73 3b | 0d 09 73 68 6f 72 74 20 |dRadius;|..short |
|00004b80| 09 09 74 69 6d 65 43 6f | 75 6e 74 2c 20 6a 75 67 |..timeCo|unt, jug|
|00004b90| 67 6c 65 72 43 6f 75 6e | 74 3b 0d 09 0d 09 68 61 |glerCoun|t;....ha|
|00004ba0| 6e 64 52 61 64 69 75 73 | 20 3d 20 6b 48 61 6e 64 |ndRadius| = kHand|
|00004bb0| 52 61 64 69 75 73 3b 0d | 09 74 68 72 6f 77 73 50 |Radius;.|.throwsP|
|00004bc0| 69 63 74 20 3d 20 28 2a | 61 4a 75 67 67 6c 65 29 |ict = (*|aJuggle)|
|00004bd0| 2d 3e 74 68 72 6f 77 73 | 50 69 63 74 3b 0d 09 66 |->throws|Pict;..f|
|00004be0| 61 64 65 64 54 68 72 6f | 77 73 50 69 63 74 20 3d |adedThro|wsPict =|
|00004bf0| 20 28 2a 61 4a 75 67 67 | 6c 65 29 2d 3e 66 61 64 | (*aJugg|le)->fad|
|00004c00| 65 64 54 68 72 6f 77 73 | 50 69 63 74 3b 0d 09 0d |edThrows|Pict;...|
|00004c10| 09 2f 2f 20 52 65 6d 6f | 76 65 20 61 6c 6c 20 73 |.// Remo|ve all s|
|00004c20| 68 61 70 65 73 20 66 72 | 6f 6d 20 74 68 65 20 70 |hapes fr|om the p|
|00004c30| 69 63 74 73 0d 09 47 58 | 53 65 74 50 69 63 74 75 |icts..GX|SetPictu|
|00004c40| 72 65 50 61 72 74 73 28 | 09 74 68 72 6f 77 73 50 |reParts(|.throwsP|
|00004c50| 69 63 74 2c 09 09 2f 2f | 20 74 68 65 20 70 69 63 |ict,..//| the pic|
|00004c60| 74 75 72 65 0d 09 09 09 | 09 09 09 31 2c 09 09 09 |ture....|...1,...|
|00004c70| 09 2f 2f 20 66 69 72 73 | 74 20 69 74 65 6d 20 74 |.// firs|t item t|
|00004c80| 6f 20 72 65 6d 6f 76 65 | 0d 09 09 09 09 09 09 67 |o remove|.......g|
|00004c90| 78 53 65 6c 65 63 74 54 | 6f 45 6e 64 2c 09 2f 2f |xSelectT|oEnd,.//|
|00004ca0| 20 72 65 6d 6f 76 65 20 | 61 6c 6c 20 74 68 65 20 | remove |all the |
|00004cb0| 77 61 79 20 74 6f 20 74 | 68 65 20 65 6e 64 0d 09 |way to t|he end..|
|00004cc0| 09 09 09 09 09 30 2c 09 | 09 09 09 2f 2f 20 6e 6f |.....0,.|...// no|
|00004cd0| 74 68 69 6e 67 20 62 65 | 69 6e 67 20 69 6e 73 65 |thing be|ing inse|
|00004ce0| 72 74 65 64 0d 09 09 09 | 09 09 09 6e 69 6c 2c 09 |rted....|...nil,.|
|00004cf0| 09 09 2f 2f 20 6e 6f 20 | 73 68 61 70 65 73 2c 20 |..// no |shapes, |
|00004d00| 73 74 79 6c 65 73 2c 20 | 69 6e 6b 73 2c 20 6f 72 |styles, |inks, or|
|00004d10| 20 74 72 61 6e 73 66 6f | 72 6d 73 0d 09 09 09 09 | transfo|rms.....|
|00004d20| 09 09 6e 69 6c 2c 0d 09 | 09 09 09 09 09 6e 69 6c |..nil,..|.....nil|
|00004d30| 2c 0d 09 09 09 09 09 09 | 6e 69 6c 09 29 3b 0d 09 |,.......|nil.);..|
|00004d40| 47 58 53 65 74 50 69 63 | 74 75 72 65 50 61 72 74 |GXSetPic|turePart|
|00004d50| 73 28 09 66 61 64 65 64 | 54 68 72 6f 77 73 50 69 |s(.faded|ThrowsPi|
|00004d60| 63 74 2c 20 31 2c 20 67 | 78 53 65 6c 65 63 74 54 |ct, 1, g|xSelectT|
|00004d70| 6f 45 6e 64 2c 20 30 2c | 20 6e 69 6c 2c 20 6e 69 |oEnd, 0,| nil, ni|
|00004d80| 6c 2c 20 6e 69 6c 2c 20 | 6e 69 6c 29 3b 0d 09 0d |l, nil, |nil);...|
|00004d90| 09 2f 2f 20 62 75 69 6c | 64 20 69 74 20 62 61 63 |.// buil|d it bac|
|00004da0| 6b 20 75 70 20 61 67 61 | 69 6e 0d 09 66 6f 72 28 |k up aga|in..for(|
|00004db0| 74 69 6d 65 43 6f 75 6e | 74 20 3d 20 31 3b 20 74 |timeCoun|t = 1; t|
|00004dc0| 69 6d 65 43 6f 75 6e 74 | 20 3c 3d 20 28 2a 61 4a |imeCount| <= (*aJ|
|00004dd0| 75 67 67 6c 65 29 2d 3e | 6e 75 6d 43 6f 75 6e 74 |uggle)->|numCount|
|00004de0| 73 3b 20 74 69 6d 65 43 | 6f 75 6e 74 2b 2b 29 0d |s; timeC|ount++).|
|00004df0| 09 7b 0d 09 09 66 6f 72 | 28 6a 75 67 67 6c 65 72 |.{...for|(juggler|
|00004e00| 43 6f 75 6e 74 20 3d 20 | 31 3b 20 6a 75 67 67 6c |Count = |1; juggl|
|00004e10| 65 72 43 6f 75 6e 74 20 | 3c 3d 20 28 2a 61 4a 75 |erCount |<= (*aJu|
|00004e20| 67 67 6c 65 29 2d 3e 6e | 75 6d 4a 75 67 67 6c 65 |ggle)->n|umJuggle|
|00004e30| 72 73 3b 20 6a 75 67 67 | 6c 65 72 43 6f 75 6e 74 |rs; jugg|lerCount|
|00004e40| 2b 2b 29 0d 09 09 7b 0d | 09 09 09 48 61 6e 64 50 |++)...{.|...HandP|
|00004e50| 74 72 09 68 61 6e 64 20 | 3d 20 47 65 74 49 6e 64 |tr.hand |= GetInd|
|00004e60| 65 78 65 64 48 61 6e 64 | 28 61 4a 75 67 67 6c 65 |exedHand|(aJuggle|
|00004e70| 2c 20 74 69 6d 65 43 6f | 75 6e 74 2c 20 6a 75 67 |, timeCo|unt, jug|
|00004e80| 67 6c 65 72 43 6f 75 6e | 74 2c 20 66 61 6c 73 65 |glerCoun|t, false|
|00004e90| 29 3b 0d 09 09 09 69 66 | 28 68 61 6e 64 20 21 3d |);....if|(hand !=|
|00004ea0| 20 6e 69 6c 20 26 26 20 | 68 61 6e 64 2d 3e 73 69 | nil && |hand->si|
|00004eb0| 6e 6b 2e 74 69 6d 65 20 | 3e 20 30 29 20 2f 2f 20 |nk.time |> 0) // |
|00004ec0| 69 66 20 74 68 65 72 65 | 27 73 20 61 20 73 69 6e |if there|'s a sin|
|00004ed0| 6b 2c 20 6d 61 6b 65 20 | 61 20 74 68 72 6f 77 20 |k, make |a throw |
|00004ee0| 66 6f 72 20 69 74 0d 09 | 09 09 7b 0d 09 09 09 09 |for it..|..{.....|
|00004ef0| 67 78 4c 69 6e 65 09 61 | 4c 69 6e 65 3b 0d 09 09 |gxLine.a|Line;...|
|00004f00| 09 09 48 61 6e 64 4c 6f | 63 09 61 4c 6f 63 3b 0d |..HandLo|c.aLoc;.|
|00004f10| 09 09 09 09 0d 09 09 09 | 09 2f 2f 20 53 65 74 20 |........|.// Set |
|00004f20| 74 68 65 20 66 69 72 73 | 74 20 70 6f 69 6e 74 0d |the firs|t point.|
|00004f30| 09 09 09 09 61 4c 6f 63 | 2e 74 69 6d 65 20 3d 20 |....aLoc|.time = |
|00004f40| 74 69 6d 65 43 6f 75 6e | 74 3b 0d 09 09 09 09 61 |timeCoun|t;.....a|
|00004f50| 4c 6f 63 2e 6a 75 67 67 | 6c 65 72 20 3d 20 6a 75 |Loc.jugg|ler = ju|
|00004f60| 67 67 6c 65 72 43 6f 75 | 6e 74 3b 0d 09 09 09 09 |gglerCou|nt;.....|
|00004f70| 48 61 6e 64 4c 6f 63 54 | 6f 50 6f 69 6e 74 28 61 |HandLocT|oPoint(a|
|00004f80| 4a 75 67 67 6c 65 2c 20 | 26 61 4c 6f 63 2c 20 26 |Juggle, |&aLoc, &|
|00004f90| 61 4c 69 6e 65 2e 66 69 | 72 73 74 29 3b 0d 09 09 |aLine.fi|rst);...|
|00004fa0| 09 09 61 4c 69 6e 65 2e | 66 69 72 73 74 2e 78 20 |..aLine.|first.x |
|00004fb0| 2b 3d 20 68 61 6e 64 52 | 61 64 69 75 73 3b 20 2f |+= handR|adius; /|
|00004fc0| 2f 20 6d 6f 76 65 20 6f | 66 66 20 74 68 65 20 68 |/ move o|ff the h|
|00004fd0| 61 6e 64 0d 09 09 09 09 | 0d 09 09 09 09 2f 2f 20 |and.....|.....// |
|00004fe0| 53 65 74 20 74 68 65 20 | 6c 61 73 74 20 70 6f 69 |Set the |last poi|
|00004ff0| 6e 74 2e 20 49 66 20 74 | 68 65 20 74 68 72 6f 77 |nt. If t|he throw|
|00005000| 20 77 72 61 70 73 20 61 | 72 6f 75 6e 64 2c 20 73 | wraps a|round, s|
|00005010| 65 74 20 74 68 65 20 0d | 09 09 09 09 2f 2f 20 6c |et the .|....// l|
|00005020| 61 73 74 20 70 6f 69 6e | 74 20 6f 66 66 20 74 68 |ast poin|t off th|
|00005030| 65 20 72 69 67 68 74 20 | 65 64 67 65 0d 09 09 09 |e right |edge....|
|00005040| 09 69 66 28 68 61 6e 64 | 2d 3e 73 69 6e 6b 2e 74 |.if(hand|->sink.t|
|00005050| 69 6d 65 20 3e 20 74 69 | 6d 65 43 6f 75 6e 74 29 |ime > ti|meCount)|
|00005060| 0d 09 09 09 09 09 61 4c | 6f 63 2e 74 69 6d 65 20 |......aL|oc.time |
|00005070| 3d 20 68 61 6e 64 2d 3e | 73 69 6e 6b 2e 74 69 6d |= hand->|sink.tim|
|00005080| 65 3b 0d 09 09 09 09 65 | 6c 73 65 0d 09 09 09 09 |e;.....e|lse.....|
|00005090| 09 61 4c 6f 63 2e 74 69 | 6d 65 20 3d 20 68 61 6e |.aLoc.ti|me = han|
|000050a0| 64 2d 3e 73 69 6e 6b 2e | 74 69 6d 65 20 2b 20 28 |d->sink.|time + (|
|000050b0| 2a 61 4a 75 67 67 6c 65 | 29 2d 3e 6e 75 6d 43 6f |*aJuggle|)->numCo|
|000050c0| 75 6e 74 73 3b 0d 09 09 | 09 09 61 4c 6f 63 2e 6a |unts;...|..aLoc.j|
|000050d0| 75 67 67 6c 65 72 20 3d | 20 68 61 6e 64 2d 3e 73 |uggler =| hand->s|
|000050e0| 69 6e 6b 2e 6a 75 67 67 | 6c 65 72 3b 0d 09 09 09 |ink.jugg|ler;....|
|000050f0| 09 48 61 6e 64 4c 6f 63 | 54 6f 50 6f 69 6e 74 28 |.HandLoc|ToPoint(|
|00005100| 61 4a 75 67 67 6c 65 2c | 20 26 61 4c 6f 63 2c 20 |aJuggle,| &aLoc, |
|00005110| 26 61 4c 69 6e 65 2e 6c | 61 73 74 29 3b 0d 09 09 |&aLine.l|ast);...|
|00005120| 09 09 61 4c 69 6e 65 2e | 6c 61 73 74 2e 78 20 2d |..aLine.|last.x -|
|00005130| 3d 20 68 61 6e 64 52 61 | 64 69 75 73 3b 20 2f 2f |= handRa|dius; //|
|00005140| 20 6d 6f 76 65 20 6f 66 | 66 20 74 68 65 20 68 61 | move of|f the ha|
|00005150| 6e 64 0d 09 09 09 09 0d | 09 09 09 09 2f 2f 20 41 |nd......|....// A|
|00005160| 64 64 20 74 68 65 20 6e | 65 77 20 74 68 72 6f 77 |dd the n|ew throw|
|00005170| 20 73 68 61 70 65 0d 09 | 09 09 09 41 64 64 4e 65 | shape..|...AddNe|
|00005180| 77 54 68 72 6f 77 53 68 | 61 70 65 28 61 4a 75 67 |wThrowSh|ape(aJug|
|00005190| 67 6c 65 2c 20 26 61 4c | 69 6e 65 2c 20 66 61 6c |gle, &aL|ine, fal|
|000051a0| 73 65 29 3b 0d 09 09 09 | 7d 0d 09 09 7d 0d 09 7d |se);....|}...}..}|
|000051b0| 0d 7d 0d 0d 76 6f 69 64 | 20 4d 6f 76 65 4a 75 67 |.}..void| MoveJug|
|000051c0| 67 6c 65 72 49 6e 50 69 | 63 74 28 4a 75 67 67 6c |glerInPi|ct(Juggl|
|000051d0| 65 48 61 6e 64 6c 65 20 | 61 4a 75 67 67 6c 65 2c |eHandle |aJuggle,|
|000051e0| 20 73 68 6f 72 74 20 66 | 72 6f 6d 52 6f 77 2c 20 | short f|romRow, |
|000051f0| 73 68 6f 72 74 20 74 6f | 52 6f 77 29 0d 7b 0d 09 |short to|Row).{..|
|00005200| 67 78 53 68 61 70 65 09 | 6a 75 67 67 6c 65 72 73 |gxShape.|jugglers|
|00005210| 50 69 63 74 2c 20 6d 6f | 76 65 64 53 68 61 70 65 |Pict, mo|vedShape|
|00005220| 2c 20 74 68 65 53 68 61 | 70 65 73 5b 6b 4d 61 78 |, theSha|pes[kMax|
|00005230| 4a 75 67 67 6c 65 72 73 | 5d 3b 0d 09 73 68 6f 72 |Jugglers|];..shor|
|00005240| 74 09 6e 75 6d 4a 75 67 | 67 6c 65 72 73 2c 20 72 |t.numJug|glers, r|
|00005250| 6f 77 44 69 73 74 61 6e | 63 65 2c 20 69 6e 63 72 |owDistan|ce, incr|
|00005260| 65 6d 65 6e 74 2c 20 69 | 6e 64 65 78 3b 0d 09 0d |ement, i|ndex;...|
|00005270| 09 6a 75 67 67 6c 65 72 | 73 50 69 63 74 20 3d 20 |.juggler|sPict = |
|00005280| 28 2a 61 4a 75 67 67 6c | 65 29 2d 3e 6a 75 67 67 |(*aJuggl|e)->jugg|
|00005290| 6c 65 72 73 50 69 63 74 | 3b 0d 09 0d 09 2f 2f 20 |lersPict|;....// |
|000052a0| 47 65 74 20 74 68 65 20 | 73 68 61 70 65 73 0d 09 |Get the |shapes..|
|000052b0| 6e 75 6d 4a 75 67 67 6c | 65 72 73 20 3d 20 47 58 |numJuggl|ers = GX|
|000052c0| 47 65 74 50 69 63 74 75 | 72 65 28 6a 75 67 67 6c |GetPictu|re(juggl|
|000052d0| 65 72 73 50 69 63 74 2c | 20 74 68 65 53 68 61 70 |ersPict,| theShap|
|000052e0| 65 73 2c 20 6e 69 6c 2c | 20 6e 69 6c 2c 20 6e 69 |es, nil,| nil, ni|
|000052f0| 6c 29 3b 0d 09 0d 09 2f | 2f 20 53 61 6e 69 74 79 |l);..../|/ Sanity|
|00005300| 20 43 68 65 63 6b 0d 2f | 2a 20 09 69 66 28 6e 75 | Check./|* .if(nu|
|00005310| 6d 4a 75 67 67 6c 65 72 | 73 20 21 3d 20 28 2a 61 |mJuggler|s != (*a|
|00005320| 4a 75 67 67 6c 65 29 2d | 3e 6e 75 6d 4a 75 67 67 |Juggle)-|>numJugg|
|00005330| 6c 65 72 73 29 0d 09 7b | 0d 09 09 53 79 73 42 65 |lers)..{|...SysBe|
|00005340| 65 70 28 31 30 29 3b 0d | 09 09 72 65 74 75 72 6e |ep(10);.|..return|
|00005350| 3b 0d 09 7d 0d 20 2a 2f | 09 0d 09 2f 2f 20 73 65 |;..}. */|...// se|
|00005360| 65 20 68 6f 77 20 66 61 | 72 20 77 65 20 6d 6f 76 |e how fa|r we mov|
|00005370| 65 64 0d 09 72 6f 77 44 | 69 73 74 61 6e 63 65 20 |ed..rowD|istance |
|00005380| 3d 20 74 6f 52 6f 77 20 | 2d 20 66 72 6f 6d 52 6f |= toRow |- fromRo|
|00005390| 77 3b 0d 09 0d 09 69 6e | 64 65 78 20 3d 20 66 72 |w;....in|dex = fr|
|000053a0| 6f 6d 52 6f 77 20 2d 20 | 31 3b 0d 09 69 66 28 72 |omRow - |1;..if(r|
|000053b0| 6f 77 44 69 73 74 61 6e | 63 65 20 3c 20 30 29 0d |owDistan|ce < 0).|
|000053c0| 09 7b 0d 09 09 2f 2f 20 | 6d 6f 76 69 6e 67 20 75 |.{...// |moving u|
|000053d0| 70 0d 09 09 69 6e 63 72 | 65 6d 65 6e 74 20 3d 20 |p...incr|ement = |
|000053e0| 2d 31 3b 0d 09 09 72 6f | 77 44 69 73 74 61 6e 63 |-1;...ro|wDistanc|
|000053f0| 65 20 3d 20 2d 72 6f 77 | 44 69 73 74 61 6e 63 65 |e = -row|Distance|
|00005400| 3b 0d 09 7d 0d 09 65 6c | 73 65 0d 09 7b 0d 09 09 |;..}..el|se..{...|
|00005410| 2f 2f 20 6d 6f 76 69 6e | 67 20 64 6f 77 6e 0d 09 |// movin|g down..|
|00005420| 09 69 6e 63 72 65 6d 65 | 6e 74 20 3d 20 31 3b 0d |.increme|nt = 1;.|
|00005430| 09 7d 0d 09 0d 09 2f 2f | 20 53 61 76 65 20 6f 66 |.}....//| Save of|
|00005440| 66 20 61 20 63 6f 70 79 | 20 6f 66 20 74 68 65 20 |f a copy| of the |
|00005450| 6d 6f 76 65 64 20 73 68 | 61 70 65 2c 20 61 6e 64 |moved sh|ape, and|
|00005460| 20 6d 6f 76 65 20 69 74 | 73 20 73 63 72 65 65 6e | move it|s screen|
|00005470| 20 70 6f 73 69 74 69 6f | 6e 0d 09 6d 6f 76 65 64 | positio|n..moved|
|00005480| 53 68 61 70 65 20 3d 20 | 74 68 65 53 68 61 70 65 |Shape = |theShape|
|00005490| 73 5b 66 72 6f 6d 52 6f | 77 20 2d 20 31 5d 3b 0d |s[fromRo|w - 1];.|
|000054a0| 09 47 58 4d 6f 76 65 53 | 68 61 70 65 28 6d 6f 76 |.GXMoveS|hape(mov|
|000054b0| 65 64 53 68 61 70 65 2c | 20 30 2c 20 28 2a 61 4a |edShape,| 0, (*aJ|
|000054c0| 75 67 67 6c 65 29 2d 3e | 67 72 69 64 50 74 2e 79 |uggle)->|gridPt.y|
|000054d0| 20 2a 20 69 6e 63 72 65 | 6d 65 6e 74 20 2a 20 72 | * incre|ment * r|
|000054e0| 6f 77 44 69 73 74 61 6e | 63 65 29 3b 0d 09 0d 09 |owDistan|ce);....|
|000054f0| 2f 2f 20 4d 6f 76 65 20 | 74 68 65 20 62 6c 6f 63 |// Move |the bloc|
|00005500| 6b 20 6f 66 20 73 68 61 | 70 65 73 20 62 65 74 77 |k of sha|pes betw|
|00005510| 65 65 6e 20 74 68 65 20 | 66 72 6f 6d 20 61 6e 64 |een the |from and|
|00005520| 20 74 6f 20 72 6f 77 73 | 0d 09 77 68 69 6c 65 28 | to rows|..while(|
|00005530| 72 6f 77 44 69 73 74 61 | 6e 63 65 2d 2d 20 3e 20 |rowDista|nce-- > |
|00005540| 30 29 0d 09 7b 0d 09 09 | 2f 2f 20 6d 6f 76 65 20 |0)..{...|// move |
|00005550| 69 74 73 20 70 6f 73 69 | 74 69 6f 6e 20 69 6e 20 |its posi|tion in |
|00005560| 74 68 65 20 70 69 63 74 | 75 72 65 0d 09 09 74 68 |the pict|ure...th|
|00005570| 65 53 68 61 70 65 73 5b | 69 6e 64 65 78 5d 20 3d |eShapes[|index] =|
|00005580| 20 74 68 65 53 68 61 70 | 65 73 5b 69 6e 64 65 78 | theShap|es[index|
|00005590| 20 2b 20 69 6e 63 72 65 | 6d 65 6e 74 5d 3b 0d 09 | + incre|ment];..|
|000055a0| 09 0d 09 09 2f 2f 20 4d | 6f 76 65 20 69 74 73 20 |....// M|ove its |
|000055b0| 70 6f 73 69 74 69 6f 6e | 20 6f 6e 20 73 63 72 65 |position| on scre|
|000055c0| 65 6e 0d 09 09 47 58 4d | 6f 76 65 53 68 61 70 65 |en...GXM|oveShape|
|000055d0| 28 74 68 65 53 68 61 70 | 65 73 5b 69 6e 64 65 78 |(theShap|es[index|
|000055e0| 5d 2c 20 30 2c 20 2d 28 | 28 2a 61 4a 75 67 67 6c |], 0, -(|(*aJuggl|
|000055f0| 65 29 2d 3e 67 72 69 64 | 50 74 2e 79 20 2a 20 69 |e)->grid|Pt.y * i|
|00005600| 6e 63 72 65 6d 65 6e 74 | 29 29 3b 0d 09 09 0d 09 |ncrement|));.....|
|00005610| 09 2f 2f 20 6e 65 78 74 | 20 73 68 61 70 65 0d 09 |.// next| shape..|
|00005620| 09 69 6e 64 65 78 20 2b | 3d 20 69 6e 63 72 65 6d |.index +|= increm|
|00005630| 65 6e 74 3b 0d 09 7d 0d | 09 0d 09 2f 2f 20 69 6e |ent;..}.|...// in|
|00005640| 73 65 72 74 20 6d 6f 76 | 65 64 20 6a 75 67 67 6c |sert mov|ed juggl|
|00005650| 65 72 20 69 6e 20 64 65 | 73 74 69 6e 61 74 69 6f |er in de|stinatio|
|00005660| 6e 20 72 6f 77 0d 09 74 | 68 65 53 68 61 70 65 73 |n row..t|heShapes|
|00005670| 5b 74 6f 52 6f 77 20 2d | 20 31 5d 20 3d 20 6d 6f |[toRow -| 1] = mo|
|00005680| 76 65 64 53 68 61 70 65 | 3b 0d 09 0d 09 2f 2f 20 |vedShape|;....// |
|00005690| 52 65 73 74 6f 72 65 20 | 70 69 63 74 75 72 65 0d |Restore |picture.|
|000056a0| 09 47 58 53 65 74 50 69 | 63 74 75 72 65 28 6a 75 |.GXSetPi|cture(ju|
|000056b0| 67 67 6c 65 72 73 50 69 | 63 74 2c 20 6e 75 6d 4a |gglersPi|ct, numJ|
|000056c0| 75 67 67 6c 65 72 73 2c | 20 74 68 65 53 68 61 70 |ugglers,| theShap|
|000056d0| 65 73 2c 20 6e 69 6c 2c | 20 6e 69 6c 2c 20 6e 69 |es, nil,| nil, ni|
|000056e0| 6c 29 3b 0d 7d 0d 0d 76 | 6f 69 64 20 53 77 69 74 |l);.}..v|oid Swit|
|000056f0| 63 68 4a 75 67 67 6c 65 | 72 48 61 6e 64 73 28 4a |chJuggle|rHands(J|
|00005700| 75 67 67 6c 65 48 61 6e | 64 6c 65 20 61 4a 75 67 |uggleHan|dle aJug|
|00005710| 67 6c 65 2c 20 73 68 6f | 72 74 20 6a 75 67 67 6c |gle, sho|rt juggl|
|00005720| 65 72 4e 75 6d 29 0d 7b | 0d 09 67 78 53 68 61 70 |erNum).{|..gxShap|
|00005730| 65 20 09 09 66 69 72 73 | 74 48 61 6e 64 2c 20 6f |e ..firs|tHand, o|
|00005740| 6c 64 4a 75 67 67 6c 65 | 72 2c 20 6e 65 77 4a 75 |ldJuggle|r, newJu|
|00005750| 67 67 6c 65 72 3b 0d 09 | 75 6e 73 69 67 6e 65 64 |ggler;..|unsigned|
|00005760| 20 63 68 61 72 09 68 61 | 6e 64 54 65 78 74 5b 32 | char.ha|ndText[2|
|00005770| 5d 20 3d 20 22 52 22 3b | 0d 09 73 68 6f 72 74 09 |] = "R";|..short.|
|00005780| 09 09 72 6f 77 4e 75 6d | 3b 0d 09 0d 09 72 6f 77 |..rowNum|;....row|
|00005790| 4e 75 6d 20 3d 20 4a 75 | 67 67 6c 65 72 54 6f 52 |Num = Ju|gglerToR|
|000057a0| 6f 77 28 61 4a 75 67 67 | 6c 65 2c 20 6a 75 67 67 |ow(aJugg|le, jugg|
|000057b0| 6c 65 72 4e 75 6d 29 3b | 0d 09 0d 09 2f 2f 20 47 |lerNum);|....// G|
|000057c0| 65 74 20 74 68 65 20 6a | 75 67 67 6c 65 72 0d 09 |et the j|uggler..|
|000057d0| 47 65 74 50 69 63 74 75 | 72 65 49 74 65 6d 28 28 |GetPictu|reItem((|
|000057e0| 2a 61 4a 75 67 67 6c 65 | 29 2d 3e 6a 75 67 67 6c |*aJuggle|)->juggl|
|000057f0| 65 72 73 50 69 63 74 2c | 20 72 6f 77 4e 75 6d 2c |ersPict,| rowNum,|
|00005800| 20 26 6f 6c 64 4a 75 67 | 67 6c 65 72 2c 20 6e 69 | &oldJug|gler, ni|
|00005810| 6c 2c 20 6e 69 6c 2c 20 | 6e 69 6c 29 3b 0d 09 0d |l, nil, |nil);...|
|00005820| 09 2f 2f 20 47 65 74 20 | 74 68 65 20 74 65 78 74 |.// Get |the text|
|00005830| 20 69 6e 20 74 68 65 20 | 66 69 72 73 74 20 68 61 | in the |first ha|
|00005840| 6e 64 0d 09 47 65 74 50 | 69 63 74 75 72 65 49 74 |nd..GetP|ictureIt|
|00005850| 65 6d 28 6f 6c 64 4a 75 | 67 67 6c 65 72 2c 20 32 |em(oldJu|ggler, 2|
|00005860| 2c 20 26 66 69 72 73 74 | 48 61 6e 64 2c 20 6e 69 |, &first|Hand, ni|
|00005870| 6c 2c 20 6e 69 6c 2c 20 | 6e 69 6c 29 3b 0d 09 47 |l, nil, |nil);..G|
|00005880| 58 47 65 74 54 65 78 74 | 28 66 69 72 73 74 48 61 |XGetText|(firstHa|
|00005890| 6e 64 2c 20 6e 69 6c 2c | 20 68 61 6e 64 54 65 78 |nd, nil,| handTex|
|000058a0| 74 2c 20 6e 69 6c 29 3b | 0d 09 0d 09 2f 2f 20 4d |t, nil);|....// M|
|000058b0| 61 6b 65 20 74 68 65 20 | 72 69 67 68 74 20 72 65 |ake the |right re|
|000058c0| 70 6c 61 63 65 6d 65 6e | 74 2c 20 70 6f 73 69 74 |placemen|t, posit|
|000058d0| 69 6f 6e 20 69 74 2c 20 | 61 6e 64 20 72 65 70 6c |ion it, |and repl|
|000058e0| 61 63 65 20 69 74 0d 09 | 6e 65 77 4a 75 67 67 6c |ace it..|newJuggl|
|000058f0| 65 72 20 3d 20 4d 61 6b | 65 4a 75 67 67 6c 65 72 |er = Mak|eJuggler|
|00005900| 53 68 61 70 65 28 61 4a | 75 67 67 6c 65 2c 20 28 |Shape(aJ|uggle, (|
|00005910| 68 61 6e 64 54 65 78 74 | 5b 30 5d 20 21 3d 20 27 |handText|[0] != '|
|00005920| 52 27 29 2c 20 6a 75 67 | 67 6c 65 72 4e 75 6d 29 |R'), jug|glerNum)|
|00005930| 3b 0d 09 69 66 28 72 6f | 77 4e 75 6d 20 3e 20 31 |;..if(ro|wNum > 1|
|00005940| 29 20 20 2f 2f 20 70 72 | 65 76 65 6e 74 73 20 77 |)  // pr|events w|
|00005950| 61 72 6e 69 6e 67 3a 20 | 67 65 6f 6d 65 74 72 79 |arning: |geometry|
|00005960| 5f 75 6e 6e 61 66 66 65 | 63 74 65 64 0d 09 09 47 |_unnaffe|cted...G|
|00005970| 58 4d 6f 76 65 53 68 61 | 70 65 28 6e 65 77 4a 75 |XMoveSha|pe(newJu|
|00005980| 67 67 6c 65 72 2c 20 30 | 2c 20 28 2a 61 4a 75 67 |ggler, 0|, (*aJug|
|00005990| 67 6c 65 29 2d 3e 67 72 | 69 64 50 74 2e 79 20 2a |gle)->gr|idPt.y *|
|000059a0| 20 28 72 6f 77 4e 75 6d | 20 2d 20 31 29 29 3b 0d | (rowNum| - 1));.|
|000059b0| 09 53 65 74 50 69 63 74 | 75 72 65 49 74 65 6d 28 |.SetPict|ureItem(|
|000059c0| 28 2a 61 4a 75 67 67 6c | 65 29 2d 3e 6a 75 67 67 |(*aJuggl|e)->jugg|
|000059d0| 6c 65 72 73 50 69 63 74 | 2c 20 72 6f 77 4e 75 6d |lersPict|, rowNum|
|000059e0| 2c 20 6e 65 77 4a 75 67 | 67 6c 65 72 2c 20 6e 69 |, newJug|gler, ni|
|000059f0| 6c 2c 20 6e 69 6c 2c 20 | 6e 69 6c 29 3b 0d 09 47 |l, nil, |nil);..G|
|00005a00| 58 44 69 73 70 6f 73 65 | 53 68 61 70 65 28 6e 65 |XDispose|Shape(ne|
|00005a10| 77 4a 75 67 67 6c 65 72 | 29 3b 0d 7d 0d 0d 76 6f |wJuggler|);.}..vo|
|00005a20| 69 64 20 43 68 61 6e 67 | 65 4a 75 67 67 6c 65 72 |id Chang|eJuggler|
|00005a30| 4c 61 62 65 6c 28 4a 75 | 67 67 6c 65 48 61 6e 64 |Label(Ju|ggleHand|
|00005a40| 6c 65 20 61 4a 75 67 67 | 6c 65 2c 20 73 68 6f 72 |le aJugg|le, shor|
|00005a50| 74 20 6a 75 67 67 6c 65 | 72 2c 20 73 68 6f 72 74 |t juggle|r, short|
|00005a60| 20 6e 65 77 49 64 29 0d | 7b 0d 09 67 78 53 68 61 | newId).|{..gxSha|
|00005a70| 70 65 09 6a 75 67 67 6c | 65 72 53 68 61 70 65 2c |pe.juggl|erShape,|
|00005a80| 20 6c 61 62 65 6c 53 68 | 61 70 65 3b 0d 09 73 68 | labelSh|ape;..sh|
|00005a90| 6f 72 74 09 72 6f 77 3b | 0d 09 0d 09 72 6f 77 20 |ort.row;|....row |
|00005aa0| 3d 20 4a 75 67 67 6c 65 | 72 54 6f 52 6f 77 28 61 |= Juggle|rToRow(a|
|00005ab0| 4a 75 67 67 6c 65 2c 20 | 6a 75 67 67 6c 65 72 29 |Juggle, |juggler)|
|00005ac0| 3b 0d 09 47 65 74 50 69 | 63 74 75 72 65 49 74 65 |;..GetPi|ctureIte|
|00005ad0| 6d 28 28 2a 61 4a 75 67 | 67 6c 65 29 2d 3e 6a 75 |m((*aJug|gle)->ju|
|00005ae0| 67 67 6c 65 72 73 50 69 | 63 74 2c 20 72 6f 77 2c |gglersPi|ct, row,|
|00005af0| 20 26 6a 75 67 67 6c 65 | 72 53 68 61 70 65 2c 20 | &juggle|rShape, |
|00005b00| 6e 69 6c 2c 20 6e 69 6c | 2c 20 6e 69 6c 29 3b 0d |nil, nil|, nil);.|
|00005b10| 09 69 66 28 6a 75 67 67 | 6c 65 72 53 68 61 70 65 |.if(jugg|lerShape|
|00005b20| 20 21 3d 20 6e 69 6c 29 | 0d 09 7b 0d 09 09 2f 2f | != nil)|..{...//|
|00005b30| 20 67 65 74 20 6c 61 62 | 65 6c 0d 09 09 47 65 74 | get lab|el...Get|
|00005b40| 50 69 63 74 75 72 65 49 | 74 65 6d 28 6a 75 67 67 |PictureI|tem(jugg|
|00005b50| 6c 65 72 53 68 61 70 65 | 2c 20 31 2c 20 26 6c 61 |lerShape|, 1, &la|
|00005b60| 62 65 6c 53 68 61 70 65 | 2c 20 6e 69 6c 2c 20 6e |belShape|, nil, n|
|00005b70| 69 6c 2c 20 6e 69 6c 29 | 3b 0d 09 09 69 66 28 6c |il, nil)|;...if(l|
|00005b80| 61 62 65 6c 53 68 61 70 | 65 20 21 3d 20 6e 69 6c |abelShap|e != nil|
|00005b90| 29 0d 09 09 7b 0d 09 09 | 09 63 68 61 72 09 09 6e |)...{...|.char..n|
|00005ba0| 75 6d 62 65 72 54 65 78 | 74 5b 35 30 5d 2c 20 6c |umberTex|t[50], l|
|00005bb0| 61 62 65 6c 54 65 78 74 | 5b 35 30 5d 20 3d 20 22 |abelText|[50] = "|
|00005bc0| 4a 75 67 67 6c 65 72 20 | 22 3b 0d 09 09 09 6c 6f |Juggler |";....lo|
|00005bd0| 6e 67 09 09 6c 65 6e 67 | 74 68 3b 0d 0d 09 09 09 |ng..leng|th;.....|
|00005be0| 2f 2f 20 4d 61 6b 65 20 | 74 68 65 20 6e 65 77 20 |// Make |the new |
|00005bf0| 6c 61 62 65 6c 20 73 74 | 72 69 6e 67 0d 09 09 09 |label st|ring....|
|00005c00| 4e 75 6d 54 6f 53 74 72 | 69 6e 67 28 28 6c 6f 6e |NumToStr|ing((lon|
|00005c10| 67 29 6e 65 77 49 64 2c | 20 28 53 74 72 69 6e 67 |g)newId,| (String|
|00005c20| 50 74 72 29 6e 75 6d 62 | 65 72 54 65 78 74 29 3b |Ptr)numb|erText);|
|00005c30| 0d 09 09 09 70 32 63 28 | 28 53 74 72 69 6e 67 50 |....p2c(|(StringP|
|00005c40| 74 72 29 6e 75 6d 62 65 | 72 54 65 78 74 29 3b 0d |tr)numbe|rText);.|
|00005c50| 09 09 09 63 63 61 74 28 | 6c 61 62 65 6c 54 65 78 |...ccat(|labelTex|
|00005c60| 74 2c 20 6e 75 6d 62 65 | 72 54 65 78 74 29 3b 0d |t, numbe|rText);.|
|00005c70| 09 09 09 6c 65 6e 67 74 | 68 20 3d 20 63 6c 65 6e |...lengt|h = clen|
|00005c80| 28 6c 61 62 65 6c 54 65 | 78 74 29 3b 0d 09 09 09 |(labelTe|xt);....|
|00005c90| 0d 09 09 09 2f 2f 20 53 | 65 74 20 69 74 0d 09 09 |....// S|et it...|
|00005ca0| 09 47 58 53 65 74 54 65 | 78 74 28 6c 61 62 65 6c |.GXSetTe|xt(label|
|00005cb0| 53 68 61 70 65 2c 20 6c | 65 6e 67 74 68 2c 20 28 |Shape, l|ength, (|
|00005cc0| 75 6e 73 69 67 6e 65 64 | 20 63 68 61 72 2a 29 6c |unsigned| char*)l|
|00005cd0| 61 62 65 6c 54 65 78 74 | 2c 20 6e 69 6c 29 3b 0d |abelText|, nil);.|
|00005ce0| 09 09 7d 0d 09 7d 0d 7d | 0d 0d 2f 2f 20 4d 6f 64 |..}..}.}|..// Mod|
|00005cf0| 65 6c 6c 65 64 20 61 66 | 74 65 72 20 53 65 74 44 |elled af|ter SetD|
|00005d00| 65 65 70 53 68 61 70 65 | 54 72 61 6e 73 66 6f 72 |eepShape|Transfor|
|00005d10| 6d 20 69 6e 20 74 68 65 | 20 74 72 61 6e 73 66 6f |m in the| transfo|
|00005d20| 72 6d 20 6c 69 62 72 61 | 72 79 0d 76 6f 69 64 20 |rm libra|ry.void |
|00005d30| 53 65 74 44 65 65 70 53 | 68 61 70 65 49 6e 6b 28 |SetDeepS|hapeInk(|
|00005d40| 67 78 53 68 61 70 65 20 | 73 68 2c 20 67 78 49 6e |gxShape |sh, gxIn|
|00005d50| 6b 20 69 6e 6b 29 0d 7b | 0d 09 69 66 20 28 47 58 |k ink).{|..if (GX|
|00005d60| 47 65 74 53 68 61 70 65 | 54 79 70 65 28 73 68 29 |GetShape|Type(sh)|
|00005d70| 20 3d 3d 20 67 78 50 69 | 63 74 75 72 65 54 79 70 | == gxPi|ctureTyp|
|00005d80| 65 29 20 7b 0d 09 09 72 | 65 67 69 73 74 65 72 20 |e) {...r|egister |
|00005d90| 73 68 6f 72 74 20 63 6f | 75 6e 74 20 3d 20 47 58 |short co|unt = GX|
|00005da0| 47 65 74 50 69 63 74 75 | 72 65 28 73 68 2c 20 6e |GetPictu|re(sh, n|
|00005db0| 69 6c 2c 20 6e 69 6c 2c | 20 6e 69 6c 2c 20 6e 69 |il, nil,| nil, ni|
|00005dc0| 6c 29 3b 0d 09 09 67 78 | 53 68 61 70 65 20 69 74 |l);...gx|Shape it|
|00005dd0| 65 6d 53 68 61 70 65 3b | 0d 09 09 67 78 49 6e 6b |emShape;|...gxInk|
|00005de0| 20 69 74 65 6d 49 6e 6b | 3b 0d 09 09 0d 09 09 77 | itemInk|;......w|
|00005df0| 68 69 6c 65 20 28 63 6f | 75 6e 74 29 20 7b 0d 09 |hile (co|unt) {..|
|00005e00| 09 09 47 58 47 65 74 50 | 69 63 74 75 72 65 50 61 |..GXGetP|icturePa|
|00005e10| 72 74 73 28 73 68 2c 20 | 63 6f 75 6e 74 2c 20 31 |rts(sh, |count, 1|
|00005e20| 2c 20 26 69 74 65 6d 53 | 68 61 70 65 2c 20 6e 69 |, &itemS|hape, ni|
|00005e30| 6c 2c 20 26 69 74 65 6d | 49 6e 6b 2c 20 6e 69 6c |l, &item|Ink, nil|
|00005e40| 29 3b 0d 09 09 09 69 66 | 20 28 69 74 65 6d 49 6e |);....if| (itemIn|
|00005e50| 6b 29 20 7b 0d 09 09 09 | 09 67 78 53 74 79 6c 65 |k) {....|.gxStyle|
|00005e60| 20 09 69 74 65 6d 53 74 | 79 6c 65 3b 0d 09 09 09 | .itemSt|yle;....|
|00005e70| 09 67 78 54 72 61 6e 73 | 66 6f 72 6d 20 69 74 65 |.gxTrans|form ite|
|00005e80| 6d 58 66 6f 72 6d 3b 0d | 09 09 09 09 0d 09 09 09 |mXform;.|........|
|00005e90| 09 47 58 47 65 74 50 69 | 63 74 75 72 65 50 61 72 |.GXGetPi|cturePar|
|00005ea0| 74 73 28 73 68 2c 20 63 | 6f 75 6e 74 2c 20 31 2c |ts(sh, c|ount, 1,|
|00005eb0| 20 26 69 74 65 6d 53 68 | 61 70 65 2c 20 26 69 74 | &itemSh|ape, &it|
|00005ec0| 65 6d 53 74 79 6c 65 2c | 20 26 69 74 65 6d 49 6e |emStyle,| &itemIn|
|00005ed0| 6b 2c 20 26 69 74 65 6d | 58 66 6f 72 6d 29 3b 0d |k, &item|Xform);.|
|00005ee0| 09 09 09 09 47 58 53 65 | 74 50 69 63 74 75 72 65 |....GXSe|tPicture|
|00005ef0| 50 61 72 74 73 28 73 68 | 2c 20 63 6f 75 6e 74 2c |Parts(sh|, count,|
|00005f00| 20 31 2c 20 31 2c 20 26 | 69 74 65 6d 53 68 61 70 | 1, 1, &|itemShap|
|00005f10| 65 2c 20 26 69 74 65 6d | 53 74 79 6c 65 2c 20 26 |e, &item|Style, &|
|00005f20| 69 6e 6b 2c 20 26 69 74 | 65 6d 58 66 6f 72 6d 29 |ink, &it|emXform)|
|00005f30| 3b 0d 09 09 09 7d 0d 09 | 09 09 53 65 74 44 65 65 |;....}..|..SetDee|
|00005f40| 70 53 68 61 70 65 49 6e | 6b 28 69 74 65 6d 53 68 |pShapeIn|k(itemSh|
|00005f50| 61 70 65 2c 20 69 6e 6b | 29 3b 0d 09 09 09 63 6f |ape, ink|);....co|
|00005f60| 75 6e 74 2d 2d 3b 0d 09 | 09 7d 0d 09 7d 0d 09 47 |unt--;..|.}..}..G|
|00005f70| 58 53 65 74 53 68 61 70 | 65 49 6e 6b 28 73 68 2c |XSetShap|eInk(sh,|
|00005f80| 20 69 6e 6b 29 3b 0d 7d | 0d 0d 52 67 6e 48 61 6e | ink);.}|..RgnHan|
|00005f90| 64 6c 65 20 47 65 74 53 | 68 61 70 65 42 6f 75 6e |dle GetS|hapeBoun|
|00005fa0| 64 73 52 67 6e 28 67 78 | 53 68 61 70 65 20 73 68 |dsRgn(gx|Shape sh|
|00005fb0| 61 70 65 29 0d 7b 0d 09 | 67 78 52 65 63 74 61 6e |ape).{..|gxRectan|
|00005fc0| 67 6c 65 09 09 62 6f 75 | 6e 64 73 3b 0d 09 52 67 |gle..bou|nds;..Rg|
|00005fd0| 6e 48 61 6e 64 6c 65 09 | 09 72 67 6e 3b 0d 09 0d |nHandle.|.rgn;...|
|00005fe0| 09 47 58 47 65 74 53 68 | 61 70 65 4c 6f 63 61 6c |.GXGetSh|apeLocal|
|00005ff0| 42 6f 75 6e 64 73 28 73 | 68 61 70 65 2c 20 26 62 |Bounds(s|hape, &b|
|00006000| 6f 75 6e 64 73 29 3b 0d | 09 72 67 6e 20 3d 20 4e |ounds);.|.rgn = N|
|00006010| 65 77 52 67 6e 28 29 3b | 0d 09 53 65 74 52 65 63 |ewRgn();|..SetRec|
|00006020| 74 52 67 6e 28 72 67 6e | 2c 20 46 69 78 65 64 52 |tRgn(rgn|, FixedR|
|00006030| 6f 75 6e 64 28 62 6f 75 | 6e 64 73 2e 6c 65 66 74 |ound(bou|nds.left|
|00006040| 29 2c 20 46 69 78 65 64 | 52 6f 75 6e 64 28 62 6f |), Fixed|Round(bo|
|00006050| 75 6e 64 73 2e 74 6f 70 | 29 2c 0d 09 09 09 09 46 |unds.top|),.....F|
|00006060| 69 78 65 64 52 6f 75 6e | 64 28 62 6f 75 6e 64 73 |ixedRoun|d(bounds|
|00006070| 2e 72 69 67 68 74 29 2c | 20 46 69 78 65 64 52 6f |.right),| FixedRo|
|00006080| 75 6e 64 28 62 6f 75 6e | 64 73 2e 62 6f 74 74 6f |und(boun|ds.botto|
|00006090| 6d 29 29 3b 0d 09 72 65 | 74 75 72 6e 20 72 67 6e |m));..re|turn rgn|
|000060a0| 3b 0d 7d 0d 0d 52 65 63 | 74 20 2a 47 65 74 53 68 |;.}..Rec|t *GetSh|
|000060b0| 61 70 65 42 6f 75 6e 64 | 73 51 44 52 65 63 74 28 |apeBound|sQDRect(|
|000060c0| 67 78 53 68 61 70 65 20 | 73 68 61 70 65 2c 20 52 |gxShape |shape, R|
|000060d0| 65 63 74 20 2a 72 65 63 | 74 29 0d 7b 0d 09 67 78 |ect *rec|t).{..gx|
|000060e0| 52 65 63 74 61 6e 67 6c | 65 09 09 62 6f 75 6e 64 |Rectangl|e..bound|
|000060f0| 73 3b 0d 09 0d 09 47 58 | 47 65 74 53 68 61 70 65 |s;....GX|GetShape|
|00006100| 4c 6f 63 61 6c 42 6f 75 | 6e 64 73 28 73 68 61 70 |LocalBou|nds(shap|
|00006110| 65 2c 20 26 62 6f 75 6e | 64 73 29 3b 0d 09 72 65 |e, &boun|ds);..re|
|00006120| 74 75 72 6e 20 46 69 78 | 65 64 52 65 63 74 54 6f |turn Fix|edRectTo|
|00006130| 53 68 6f 72 74 28 26 62 | 6f 75 6e 64 73 2c 20 72 |Short(&b|ounds, r|
|00006140| 65 63 74 29 3b 0d 7d 0d | 0d 50 6f 69 6e 74 20 47 |ect);.}.|.Point G|
|00006150| 65 74 51 44 57 69 6e 64 | 6f 77 4f 72 69 67 69 6e |etQDWind|owOrigin|
|00006160| 28 57 69 6e 64 6f 77 50 | 74 72 20 77 69 6e 64 6f |(WindowP|tr windo|
|00006170| 77 29 0d 7b 0d 09 67 78 | 56 69 65 77 50 6f 72 74 |w).{..gx|ViewPort|
|00006180| 09 09 64 6f 63 50 6f 72 | 74 3b 0d 09 67 78 50 6f |..docPor|t;..gxPo|
|00006190| 69 6e 74 09 09 09 74 68 | 65 47 58 50 74 3b 0d 09 |int...th|eGXPt;..|
|000061a0| 50 6f 69 6e 74 09 09 09 | 74 68 65 51 44 50 74 3b |Point...|theQDPt;|
|000061b0| 0d 09 0d 09 74 68 65 51 | 44 50 74 2e 68 20 3d 20 |....theQ|DPt.h = |
|000061c0| 74 68 65 51 44 50 74 2e | 76 20 3d 20 30 3b 0d 09 |theQDPt.|v = 0;..|
|000061d0| 4c 6f 63 61 6c 54 6f 47 | 6c 6f 62 61 6c 28 26 74 |LocalToG|lobal(&t|
|000061e0| 68 65 51 44 50 74 29 3b | 0d 09 64 6f 63 50 6f 72 |heQDPt);|..docPor|
|000061f0| 74 20 3d 20 47 65 74 57 | 69 6e 64 6f 77 47 58 50 |t = GetW|indowGXP|
|00006200| 6f 72 74 28 77 69 6e 64 | 6f 77 29 3b 0d 09 47 58 |ort(wind|ow);..GX|
|00006210| 43 6f 6e 76 65 72 74 51 | 44 50 6f 69 6e 74 28 26 |ConvertQ|DPoint(&|
|00006220| 74 68 65 51 44 50 74 2c | 20 64 6f 63 50 6f 72 74 |theQDPt,| docPort|
|00006230| 2c 20 26 74 68 65 47 58 | 50 74 29 3b 0d 09 46 69 |, &theGX|Pt);..Fi|
|00006240| 78 65 64 50 6f 69 6e 74 | 54 6f 53 68 6f 72 74 28 |xedPoint|ToShort(|
|00006250| 26 74 68 65 47 58 50 74 | 2c 20 26 74 68 65 51 44 |&theGXPt|, &theQD|
|00006260| 50 74 29 3b 0d 09 72 65 | 74 75 72 6e 20 74 68 65 |Pt);..re|turn the|
|00006270| 51 44 50 74 3b 0d 7d 0d | 0d 76 6f 69 64 20 53 65 |QDPt;.}.|.void Se|
|00006280| 74 53 68 61 70 65 4d 61 | 69 6e 50 6f 72 74 28 4a |tShapeMa|inPort(J|
|00006290| 75 67 67 6c 65 48 61 6e | 64 6c 65 20 61 4a 75 67 |uggleHan|dle aJug|
|000062a0| 67 6c 65 2c 20 67 78 53 | 68 61 70 65 20 73 68 61 |gle, gxS|hape sha|
|000062b0| 70 65 29 0d 7b 0d 09 67 | 78 56 69 65 77 50 6f 72 |pe).{..g|xViewPor|
|000062c0| 74 09 61 50 6f 72 74 3b | 0d 09 0d 09 61 50 6f 72 |t.aPort;|....aPor|
|000062d0| 74 20 3d 20 28 2a 61 4a | 75 67 67 6c 65 29 2d 3e |t = (*aJ|uggle)->|
|000062e0| 64 6f 63 50 6f 72 74 3b | 0d 09 53 65 74 44 65 65 |docPort;|..SetDee|
|000062f0| 70 53 68 61 70 65 56 69 | 65 77 50 6f 72 74 73 28 |pShapeVi|ewPorts(|
|00006300| 73 68 61 70 65 2c 20 31 | 2c 20 26 61 50 6f 72 74 |shape, 1|, &aPort|
|00006310| 29 3b 0d 7d 0d 0d 76 6f | 69 64 20 53 65 74 53 68 |);.}..vo|id SetSh|
|00006320| 61 70 65 46 61 64 65 50 | 6f 72 74 73 28 4a 75 67 |apeFadeP|orts(Jug|
|00006330| 67 6c 65 48 61 6e 64 6c | 65 20 61 4a 75 67 67 6c |gleHandl|e aJuggl|
|00006340| 65 2c 20 67 78 53 68 61 | 70 65 20 73 68 61 70 65 |e, gxSha|pe shape|
|00006350| 29 0d 7b 0d 09 67 78 56 | 69 65 77 50 6f 72 74 09 |).{..gxV|iewPort.|
|00006360| 66 61 64 65 50 6f 72 74 | 73 5b 32 5d 3b 0d 09 0d |fadePort|s[2];...|
|00006370| 09 66 61 64 65 50 6f 72 | 74 73 5b 30 5d 20 3d 20 |.fadePor|ts[0] = |
|00006380| 28 2a 61 4a 75 67 67 6c | 65 29 2d 3e 62 65 66 6f |(*aJuggl|e)->befo|
|00006390| 72 65 50 6f 72 74 3b 0d | 09 66 61 64 65 50 6f 72 |rePort;.|.fadePor|
|000063a0| 74 73 5b 31 5d 20 3d 20 | 28 2a 61 4a 75 67 67 6c |ts[1] = |(*aJuggl|
|000063b0| 65 29 2d 3e 61 66 74 65 | 72 50 6f 72 74 3b 0d 09 |e)->afte|rPort;..|
|000063c0| 53 65 74 44 65 65 70 53 | 68 61 70 65 56 69 65 77 |SetDeepS|hapeView|
|000063d0| 50 6f 72 74 73 28 73 68 | 61 70 65 2c 20 32 2c 20 |Ports(sh|ape, 2, |
|000063e0| 66 61 64 65 50 6f 72 74 | 73 29 3b 0d 7d 0d 0d 76 |fadePort|s);.}..v|
|000063f0| 6f 69 64 20 53 65 74 49 | 6e 6b 42 6c 65 6e 64 4d |oid SetI|nkBlendM|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.